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CHAPTER  1 


INTRODUCTION 


Under  government  contract  DA-49-129-ENG-542 ,  Arthur  D.  Little,  Inc., 
developed  a  digital  computer  program  which  was  capable  of  simulating 
the  performances  of  the  electrical  components  involved  in  the  power 
plants  of  anti-ballistic  missile  (ABM)  sites .   When  subjected  to  various 
disturbances,  the  ABM  power  plant  components  must  meet  very  high  performance 
standards;  consequently,  to  accurately  simulate  the  power  plant,  computer 
models  not  ordinarily  used  in  the  design  and  analysis  of  power  plants 
were  developed  for  some  of  the  various  components.  Since  the  original 
computer  program  was  developed,  the  design  of  the  power  plant  has  been 
changed  requiring  modification  of  the  computer  program.   This  work 
discusses  the  modification  of  the  computer  program,  instructions  for 
using  the  program,  and  use  of  the  program  in  simulating  a  given  power 
plant  configuration. 

In  order  to  reduce  the  repetition  of  information,  and  for  the  sake 
of  brevity,  all  symbols  used  in  this  paper  are  defined  in  Appendix  A. 
The  reader  will  find  it  helpful  to  scan  the  appendices  prior  to 
reading  the  text  of  this  paper  in  order  to  get  a  general  idea  of  the 
information  contained  therein. 


CHAPTER  2 
DESCRIPTION  OF  THE  POWER  PLANT 

The  computer  program  has  been  modified  to  be  capable  of  simulating 
an  electric  power  plant  which  consists  of  the  following:   6  generators; 
9  motor  generator  (MG)  sets,  the  motors  of  which  are  synchronous  motors; 
4  induction  motors  which  are  started  directly  from  the  main  bus;  16  distri- 
bution transformers;  a  commercial  power  source  which  supplies  power  to 
the  power  plant  from  a  distant  point  through  a  transmission  line  and  a 
commercial  power  interconnection  transformer;  and  a  passive  RL  load 
connected  to  the  main  bus .   The  MG  sets  supply  RL  loads  either  individually 
or  in  parallel  pairs.   Three  of  the  MG  sets  are  capable  of  supplying  high 
voltage  power  supplies  which  are  represented  as  RL  loads.   Figure  1  is  a 
one-line  schematic  diagram  of  the  power  plant. 

All  of  the  synchronous  and  induction  machines,  transformers,  and 
RL  loads  are  three-phase  components,  and  are  all  balanced  except  for  the 
RL  load  connected  directly  to  the  main  bus  which  may  be  either  balanced 
or  unbalanced.   All  RL  loads  are  Y-connected  with  the  neutral  grounded. 
The  stators  of  the  synchronous  machines  and  induction  motors  are  Y- 
connected  with  the  neutral  solidly  grounded  for  induction  motors,  and 
either  solidly  grounded  or  through  a  reactance  for  synchronous  machines. 
The  commercial  power  source  is  Y-connected  with  the  neutral  grounded. 
The  primary  windings  of  the  distribution  transformers  and  of  the  commercial 
power  interconnection  transformer  are  A-connected  while  the  secondary 
windings  are  Y-connected  with  the  neutral  grounded. 
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Figure  1.   Schematic  Diagram  of  Power  Plant 


CHAPTER  3 


MODELS  USED  TO  REPRESENT  THE  INDIVIDUAL  COMPONENTS  OF  THE 

POWER  PLANT 


3.1  Synchronous  Machines 

Figures  2  and  3  depict  the  models  that  are  utilized  in  the  computer 
program  to  represent  synchronous  machines  in  the  direct  and  quadrature 
axis.   The  models  take  into  consideration  the  fact  that  the  three  windings 

(abc)  of  a  synchronous  machine  have  been  transformed  by  the  DQO 

2 
transformation  to  three  DQO  windings.   Whereas,  the  real  abc  stator 

windings  rotate  with  respect  to  the  rotor,  the  fictitious  DQO  windings 

are  stationary  with  respect  to  the  rotor.  The  model  contains  14 

parameters  —  10  inductances  L,L   ,  M  ,  ,  M  _,  M  ,,  M   ,  L,.,  M-,,  L., 

a   sa   ab   af   ad   aq   f   fd   d 

and  L  and  4  resistances  R  ,  R..,  R.,  and  R  . 
q  a   f   d       q 

Synchronous  machines  are  usually  described  analytically  in  terms 
of  standard  conventional  parameters  which  are  11  inductances  L  ,  L  , 

LD1'  LQ1'  Lfl'  Ldl'  Lql'  LD  '  LD  '  LQ  »  and  L0  and  6  time  constants 

T'  ,  T"  ,  T"  ,  Ti  ,  T"  ,  and  T"  .   The  equations  which  relate  the 
fo'   do   qo    fs'   ds'      qs        ^ 

conventional  parameters  to  the  parameters  of  the  model  are 
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Mf ,  =  specify  arbitrarily  (3.5) 


(.66)(LD-LD1)Mfd 

Mad in (3-6> 

af 


Maq=  <-"><V  V  (3'7) 

(1„5)M  ,2 
L   -  I     _Lf  (3.8) 

t  LD   LD 


(1.5)M  2 
L   = r£9-  (3.9) 

q    LQ  ■  LQ 


L   +  (1.5) (M  /M  )M 

L,  =  -^ ad  fd,     af  (3.10) 

(1.5)(Maf/Mfd)2 


R ^> 


(Maf/Mfd)2Tdo 


•        ad  f   / 


L 
R   =  =3-  (3.12) 

q    V 

Tdo=IJTds  (3-13> 


L 
=  r8-  T"   .  (3,14) 


qo   LQ    qs 


Equations  (3,13)  and  (3.14)  are  useful  only  if  T"   and  T" 

vice  T"  and  T"  are  specified, 
do      qo      r 

In  order  to  obtain  C  and  A  ,  the  open-circuit  saturation  curve 
must  be  utilized.  On  the  open-circuit  saturation  curve,  determine 
the  current  i  where  saturation  just  begins;  then  using  this  current. 


obtain  A  from 
s 


X  =  L-i.  .  (3.15) 

s    f  f 


Next,  choose  a  point  such  that  the  corresponding  voltage  lies  above  the 

saturation  point  of  the  curve .   The  difference  between  the  field 

current,  if,  required  to  give  this  voltage  utilizing  the  open -circuit 

saturation  curve  and  the  current  required  using  the  air-gap  line  is 

i  .   Therefore, 
s 

Af  =  Lf(if  -  ig)  (3.16) 

i 
C j     .  (3.17) 

(xf  -  xf 


In  summary,  the  parameters  of  the  model  can  be  determined 

uniquely  from  the  specification  of  (a)  the  conventional  parameters 

L,,,  Ln,  LA,  Ln1,  LA1,  L'    L"   L"  ,  T"   or  T"   and  T"   or  T"  ; 
D'   Q'   0'   Dl'   Ql   D  '   D  '   Q  '   do'     ds'      qo     qs' 

(b)  the  open-circuit  saturation  characteristics  of  the  machine; 

(c)  the  stator  resistance  R  and  the  field  resistance  R,.;  and  (d) 

a  i 

Mf ,  which  may  be  specified  arbitrarily. 
3.2  Induction  Motors 


The  induction  motor  is  represented  by  a  5  abcag  winding  model  which 

contains  6  parameters  —  4  inductances  L  ,  L  ,  M  ,  ,  and  M   and  2 

a   a   ab       act 

resistances  R  and  R  ,.  The  model  parameters  can  be  determined  from 
a      a 

conventional  parameters  which  are  usually  defined  in  terms  of  a  transformer 
equivalent  circuit  such  as  is  shown  in  Figure  4.   The  transformer  equivalent 
circuit  in  Figure  4  is  for  a  5  abca3  winding  model,  whereas  standard 
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10 
conventional  parameters  are  defined  by  a  6  abca'b'c'  winding  transformer 
equivalent  circuit .   The  conventional  parameters  given  by  the  6  winding 
transformer  equivalent  circuit  are  X  ,  ,  X  ,X  , ,  R  ,  and  R  ,  .  Using 

3.    x     3.cl   3.3.  Si  3 

the  standard  conventional  parameter  plus  L  ,  the  model  parameters  can 
be  determined  using  the  following  equations: 

(.66)Xa  , 

M   '   =  —  (3.18) 

aa  co 


X     /»+   (1.5)M     ,  -  L 

M  .    =  -SS = — (3.19) 

ab  J 


X 

L       =  —  +   (1.5)M    ,  -  M  ,  (3.20) 

a  co  aa  ab 

XaH 
L       =  -a-^+(1.5)M     ,  (3.21) 

co  aa 

Ma     =("f)Maa'-  (3-22) 

The  total  moment  of  inertia  of  the  motor  and  its  mechanical  load  and 
the  number  of  pole-pairs  of  the  induction  motor  are  also  needed  for 
the  computer  program  to  completely  simulate  the  induction  motor. 


3.3  Regulator-Exciter  System  for  Synchronous  Alternators  and  Synchronous 
Motors 


Only  a  brief  description  of  the  regulator  and  exciter  system  used 
for  synchronous  alternators  and  synchronous  motors  will  be  presented 
here.   The  purpose  of  this  section  is  to  sufficiently  familiarize  the 
user  of  the  computer  program  with  the  regulator-exciter  system  so  that 
the  parameters  needed  for  the  program  can  be  determined. 


11 

The  model  for  the  regulator-exciter  system  of  synchronous  alternators 

is  shown  in  Figure  5.  The  model  represents  a  system  with  conventional 

regulating  features  and  a  saturable  current  potential  transformer 

(SCPT)  exciter .  The  exciter  is  represented  in  the  model  by  a  current 

source  i..,.  with  a  source  resistance  R  .   The  current  i,...  is  determined 
ff  m  ff 

using  the  instantaneous  terminal  phase  voltages  v  ,  v,  ,  and  v  ,  and 

stator  currents  i  ,  i,  ,  and  i  of  the  alternator.   The  source  resistance 
a'  b'      c 

R  represents  the  magnetizing  impedance  of  the  exciter  transformers,  and 
m 

the  saturation  of  these  transformers  is  accounted  for  in  the  model  by 
means  of  a  simple  limiter. 

The  voltage  regulator  is  represented  in  the  model  by  an  amplifier, 
a  feedback  network,  and  a  limiter.   The  amplifier  is  defined  by  its 
gain  ks,  time  delay  t3  and  output  voltage  e3  which  is  limited  by  E3. 
The  feedback  network  has  a  time  constant  of  ti+  and  a  time  delay  t^» 

The  terminal- voltage  feedback  and  reactive- load  share  control 
features  of  the  model  are  accounted  for  by  a  three-phase,  full-wave 
rectifier  and  a  quadratic  filter  with  gain  k£  and  time  constants  t2 
and  t£  • 

To  accurately  model  the  system,  the  parameters  needed  are  E  , 

Rm'  E3»  k3»  t3»    ci»  fc4»  Eref>  k2»  t£,  c2»  and  klt  All  of  these 
parameters  are  not  usually  specified  by  the  manufacturer;  therefore, 
the  following  method  is  a  suggested  way  to  determine  all  of  the 
parameters. 

E3  and  E  should  be  at  least  3  to  4  times  the  field  voltage 
required  for  open  circuit  terminal  voltage.  R  should  be  20  to  30  times 
the  field  resistance,   k^  should  be  chosen  so  that  for  a  reactive-current 
error  equal  to  the  rated  current  it  produces  a  5  percent  rated  voltage 
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13 
feedback.   Once  a  convenient  value  for  E    is  determined  and  recovery 
time  for  a  step  load  change,  T  ,  has  been  specified,  the  remaining 
parameters  can  be  obtained  from  the  following  equations: 


tj  _<  (2/3)  Tr  (3.23) 

2 
t2  <    j^-  (3.24) 


t3  <  (0.1)  t&  (3.25) 

t2  -  /tf  (3.26) 

(tt)E 
k2  -  3V  r£  (3.27) 

Lf 
t   =     _  (at  full  load)  (3»28) 

et   R  /2 

Lf 
tef  =  R     (at  n°  load)  (3.29) 

t  f 

k3  >  (10)  -f^  (3.30) 

tt+ 

2 
k2a)M  ti 

^  =  4  2  t  f    '  (3'31) 

ef 

The  exciter  of  a  synchronous  motor  is  represented  by  the  model  in 

Figure  6.   The  model  consists  of  a  voltage  excitation  source  e   , 

a  field  discharge  resistance  RfH»  two  silicon  controlled  rectifiers 

SCR1  and  SCR2,  and  a  diode  Dl.   The  parameters  Af,  k,  and  R.  ,  must  be 

f  d 

specified,   k  is  related  to  e   through  the  equation 

e   =  kV0D  .  (3,32) 

ex     ££ 
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3.4  Distribution  Transformers 

The  model  used  for  the  distribution  transformers  is  given  in  Figure  7. 
As  has  been  previously  stated,  the  primary  windings  of  the  transformers 
are  A-connected,  and  the  secondary  windings  are  Y-connected  with  the 
neutral  grounded.   The  transformers  are  represented  as  ideal  transformers 
with  a  turns  ratio,  a,  equal  to  that  of  the  actual  transformer,  plus  an 
equivalent  leakage- inductance,  L   ,  in  series  with  an  equivalent  winding 
resistance,  R  „,  per  phase.   The  model  does  not  take  into  account 
saturation  and  magnetizing  impedance  effects .   Each  phase  of  the  load 
is  represented  by  a  resistance,  IL  ,  in  series  with  an  inductance,  L  . 
All  phases  of  the  load  are  the  same. 

The  only  parameters  needed  for  the  model  are  R  „ ,  L  „,  and  a  for 
the  transformer,  and  R^  and  L  for  the  load.   Each  of  these  parameters 
can  be  easily  calculated  from  either  the  name  plate  data  of  the  transformer 
or  from  readily  available  load  characteristics. 

3.5  Commercial  Power  System 

The  commercial  power  system  is  represented  by  the  model  shown  in 
Figure  8.   The  model  represents  the  following:  (1)  a  three-phase  commercial 
power  source  with  peak  phase  voltage  E  and  the  phase  angle  of  phase  a 
being  equal  to  x>  an<i  the  source  impedance  per  phase  consisting  of  an 
inductance,  L  ,  in  series  with  a  resistance,  R^  ;  (2)  a  three-phase 
transmission  line  which  is  assumed  to  be  balanced  and  is  represented 
per  line  by  an  inductance,  L  ,  in  series  with  a  resistance,  R^;  and 
(3)  a  commercial  power  interconnection  transformer  which  is  identical 
to  the  model  for  distribution  transformers  in  Section  3.4. 
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The  parameters  needed  for  the  program  to  be  able  to  represent  the 

model  are  L  „ ,  R  » ,  and  a  for  the  interconnection  transformer; 
eq2'   eqz 

L  _  and  IL,„  for  the  overhead  transmission  line;  and  LTT9>  R,^  >  and  E  _ 

for  the  power  source.  LT2,  R^,  L^,    R^,  and  Eu2  are  equal  to  LT,  Rj,, 

2 
L  ,  R..,  and  E  divided  by  a  and  a  respectively.   All  of  these  parameters 

are  readily  available  from  published  data.   In  addition  to  the  above 

parameters,  the  value  of  x  must  also  be  inserted  in  the  program,  and 

the  method  of  determining  its  value  is  described  in  Section  5.5. 
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CHAPTER  4 


DESCRIPTION  OF  THE  COMPUTER  PROGRAM  INCLUDING  A  SUMMARY 
OF  THE  CAPABILITIES  OF  THE  PROGRAM 


4.1  Design  of  the  Computer  Program 

Generally  a  power  plant  is  divided  into  two  subsystems.   One 
subsystem  consists  of  the  prime  movers  of  the  generating  units  and  their 
fuel  supplies.   The  second  subsystem  contains  either  the  rest  of  the 
power  plant  or  the  portion  which  contains  the  electrical  components. 
The  computer  program  which  represents  the  prime  movers  and  their 
fuel  supplies  will  be  called  the  MAIN  program.   The  computer  program 
which  represents  the  rest  of  the  power  plant  will  be  called  the  SUB2 
program.   In  order  to  run  the  SUB2  program,  a  MAIN  program  is  required. 
The  MAIN  program  has  two  principal  functions  —  (1)  it  serves  as  the 
main  routine  of  the  overall  power  plant,  and  (2)  it  contains  the  model 
for  the  prime  movers  of  the  generating  units  and  their  fuel  supplies. 

The  SUB2  program  is  simply  a  large  subroutine  of  the  MAIN 
program.   It  cannot  be  emphasized  enough  that  the  MAIN  and  SUB2 
programs  are  completely  independent.   The  two  programs  are  linked 
by  the  following  FORTRAN  call  statement  from  the  MAIN  program; 
CALL  SUB2  (XA,  SP,  TOR,  XLOAD,  FR,  NS).3  XA  represents  time  (in 
seconds) ,  and  SP  is  a  one-dimensional  array  which  contains  the 
mechanical  speeds  (in  rad/sec)  of  the  shafts  of  the  generating 
units.   Arrays  TOR  and  XLOAD  are  one-dimensional  arrays  that  contain 
the  electromagnetic  torques  (in  ft-lb)  and  the  electrical  loads  (in  kW) 
of  the  generators  of  the  generating  units.   FR  is  the  electrical 
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frequency  of  the  main  bus  (in  Hz) ,  and  NS  is  the  number  of  generating 
units  that  remain  connected  to  the  main  bus  at  a  given  instant  of  time. 

The  two  programs  work  in  the  following  prescribed  manner.  When 
the  MAIN  program  calls  SUB2,  SP  and  XA  are  transferred  from  MAIN  to 
SUB2.   XA  should  be  greater  than  or  equal  to  SUB2  time  X.   IF  XA  is 
larger  than  X,  SUB2  integrates  the  differential  equations  of  all  the 
components  of  SUB2  to  time  XA  using  the  same  speeds  SP  for  the  shafts 
of  the  generating  units  throughout  the  integration.   At  the  end  of  this 
integration,  SUB2  computes  TOR,  XLOAD,  FR  and  NS  and  returns  to  the 
MAIN  program.   The  values  of  TOR,  XLOAD,  FR  and  NS  transferred  to 
the  MAIN  program  can  be  used  to  integrate,  in  the  MAIN  program,  the 
differential  equations  of  the  prime  mover  and  the  fuel  control  model 
to  a  later  time  XA.   Once  the  integration  is  completed  a  new  SP  and  a 
new  time  XA  can  be  calculated  and  the  procedure  repeated. 

It  is  very  important  to  realize  that  any  MAIN  program  which  is 
compatible  (has  similar  logic  structure)  with  SUB2  may  be  used.   Two 
very  simple  MAIN  programs  have  been  included  in  Appendix  C  with  the 
SUB2  program.   One  of  them,  SPEED,  uses  constant  speed  models  for  the 
prime  movers,  and  the  other  one,  TORQUE,  uses  constant  developed  torque  models 
for  the  prime  movers.   Again,  both  of  these  MAIN  programs  are  very  simple. 
An  actual  simulation  of  a  given  power  plant  configuration  would  require 
a  much  more  complex  model. 

A. 2  Description  of  the  SUB2  Program 

The  SUB2  program  is  based  on  the  models  described  in  Chapter  3. 
The  program  is  coded  in  FORTRAN  IV.  As  was  mentioned  previously,  the 
program  for  SUB2  is,  so  to  speak,  a  subroutine  of  the  MAIN  program. 
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In  itself,  the  SUB2  program  consists  of  50  subroutines.   As  can  be  seen 
by  glancing  through  Appendix  C,  the  first  few  lines  of  each  subroutine 
are  used  to  describe  the  function  the  subroutine  performs.   Let  it 
suffice  to  say  that  each  subroutine  performs  a  special  function  in  the 
computer  simulation,  and  all  the  subroutines  combine  to  form  the  SUB2  program 
which  simulates  the  whole  electrical  power  plant. 

Used  in  the  SUB2  program  are  several  subscripted  FORTRAN  arrays. 
These  arrays  are  in  common  to  all  of  the  subroutines  with  the  exception 
of  subroutines  SETF  and  SETI  which  have  no  common.   The  arrays  contain 
the    parameters    and    variables    of    the    various 
components    as    well    as    other    variables    used    by 
the  computer  program.   Parameters  of  different  components  are  sometimes 
placed  in  the  same  array.  When  this  is  done,  various  parts  of  an  array 
are  assigned  to  the  various  components.   For  example,  in  a  two-dimensional 
array  a  given  component  is  assigned  to  a  given  column.   The  various  parts 
are  assigned  using  the  following  ordered  arrangement:   (1)  all  generators 
of  generating  units,  (2)  all  MG  sets,  (3)  all  induction  motors,  (A)  all 
distribution  transformers,  and  (5)  commercial  power  system.   Throughout 
the  rest  of  the  paper  the  above  ordered  arrangement  will  be  referred  to 
many  times. 

The  arrays  used  in  the  SUB2  program  are  the  following:   A(80,35), 
B(99,35) ,B0(8) ,CD(3,4) ,D(120) ,EG(50) ,EP(50) ,F(316) ,G(21,35) ,GB(3,A,9) , 
Q(316),VV(21,9),W(6,6,9),X,XL(6,10,35),XM(6,10,9),Y(316),Z(6,6,35),L(134), 
LG1(50) ,LG2(50) ,LG3(50) ,LP1(50) ,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39) . 

The  dimension  of  most  of  the  arrays  is  determined  by  the  maximum 
number  of  components  in  the  power  plant  to  be  considered.  The  arrays 
above  require  13,271  computer  memory  locations.   These  arrays  have  been 
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tailored  to  accommodate  the  power  plant  in  Figure  1.   The  second  subscript 
of  all  the  two-dimensional  arrays,  except  CD(3,4),  and  the  third  subscript 
of  all  three-dimensional  arrays  correspond  to  the  position  of  the  respective 
component  in  the  ordered  component  arrangement .   The  elements  of  the 
more  important  arrays  are  defined  in  Appendix  B,   In  Appendix  B  the 
subscript  I  corresponds  to  the  position  of  a  component  in  the  ordered 
arrangement  of  components;  whereas,  the  subscript  J  specifies  the  first 
entry  in  the  Y  array  of  the  dependent  variables  of  a  component. 
In  addition  to  the  information  given  in  Appendix  B,  array  Y  contains 
all  the  dependent  variables  of  the  components;  and,  array  F  contains 
the  corresponding  first-time  derivative  of  the  dependent  variables. 

4.3  Capabilities  of  the  Computer  Program 

The  computer  program  is  quite  versatile.   Providing  the  models 
given  represent  the  components  to  be  simulated,  the  only  restrictions 
on  the  components  used  in  the  simulation  are  as  follows: 

(1)  There  must  always  be  an  RL  load  on  the  main  bus; 

(2)  The  total  number  of  generating  units,  MG  sets,  induc- 
tion motors,  and  distribution  transformers  does  not 
exceed  35; 

(3)  The  number  of  generating  units  does  not  exceed  6; 

(4)  The  number  of  MG  sets  does  not  exceed  9; 

(5)  The  number  of  induction  motors  does  not  exceed  4; 
and 

(6)  Each  simulation  has  at  least  one  power  source. 

Any  power  plant  with  a  lesser  number  of  components  than  specified  above 
may  be  simulated. 

The  computer  program  has  many  capabilities.   Any  generating  unit, 
MG  set,  induction  motor  or  distribution  transformer,  as  well  as  the 
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commercial  power  system,  can  be  disconnected  from  the  main  bus  at  a  specified 
time;  however,  once  a  component  is  disconnected,  it  must  remain  disconnected 
for  the  remainder  of  the  simulation.   Two  MG  sets  may  feed  the  same  load  in 
parallel  as  shown  in  Figure  1.  When  one  of  these  generators  is  disconnected 
from  the  common  bus,  the  disconnected  MG  set  idles  at  no  load.   All  the 
RL  loads  in  Figure  1  can  be  varied  in  two  ways.   Step  changes  of  a 
specified  magnitude  can  occur  at  any  time,  or  the  RL  loads  can  be  varied 
sinusoidally  with  specified  frequencies  and  amplitudes. 

Single-phase,  two-phase,  three-phase,  and  line-to-line  faults  can 

be  introduced  on  the  main  bus,  the  buses  of  MG  sets,  the  secondaries  of 

4 
distribution  transformers,  and  anywhere  on  the  overhead  transmission  line. 

The  faults  can  be  of  any  duration.   The  program  can  also  simulate  step 

changes  of  a  given  magnitude  as  well  as  pulse  changes  of  a  specified 

magnitude  and  duration  in  the  voltage  of  the  commercial  power  source. 

Any  of  the  power  plant  disturbances  given  above  can  occur  simultaneously 
during  a  simulation  with  the  stipulation  that  only  one  component  can  be 
disconnected  at  a  time. 

In  addition  to  the  versatility  of  the  program  shown  above,  the 
computer  program  calculates  the  instantaneous  values  of  phase  voltages 
and  line-to-line  voltages  of  the  main  bus,  buses  of  each  MG  set,  and 
the  secondaries  of  each  distribution  transformer.   The  computer  program 
calculates  the  average  three-phase  power  and  the  peak  reactive  power 
per  phase  at  the  terminals  of  each  rotating  machine  connected  to  the 
main  bus,  the  primary  and  secondary  terminals  of  the  commercial  power 
interconnection  transformer,  and  the  terminals  of  each  generator  of  the 
MG  sets.   Finally,  the  computer  program  calculates  the  percent  error 
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of  the  peaks  of  all  the  line-to-line  Voltages  and  the  percent  error  of 
the  frequencies  with  respect  to  60  Hz.  Needless  to  say,  all  of  the 
mentioned  variables  are  available  for  printing  or  plotting  as  desired. 
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CHAPTER  5 

OPERATING  INSTRUCTIONS  FOR  THE  COMPUTER  PROGRAM 

5. 1  Computer  Facilities  Required 

The  program  is  coded  using  FORTRAN  IV;  consequently,  the  program 
can  be  run  on  any  computer  which  utilizes  FORTRAN  IV  and  has  sufficient 
core  memory  available.   The  program  has  been  successfully  run  on  both  the 
IBM  360  and  CDC  6600  systems.  Allowing  for  the  common  arrays  of  SUB2 
already  described  in  Section  4.2,  the  coding  of  the  program  for  SUB2 
listed  in  Appendix  C,  along  with  either  the  main  SPEED  or  main  TORQUE 
program  requires  about  32,768  (decimal)  units  of  computer  memory. 

In  addition  to  the  standard  input  tape  5  and  output  tape  6  used  by 
all  FORTRAN  programs,  the  SUB2  program  requires  additional  tapes  2  and 
7.   This  is  an  important  consideration  in   the   preparation   of 
the   control   cards   for   the   program.  Tape  2  is  utilized  by 
subroutine  PL0T2  as  extra  memory  where  information  can  be  stored  in 
binary  form.   The  information  stored  in  tape  7  is  identical  to  the 
information  printed  out  by  tape  6;  consequently,  the  information  stored 
in  tape  7  can  be  saved  and  plotted  out  at  a  later  time. 

5.2  Input  Information  Required 

Regardless  of  the  simulation,  the  following  parameters  and  variables 
are  required  for  all  computer  simulations:   The  initial  time  X,  C(l) 
to  C(15),  L(l)  to  L(7),  and  L(9)  to  L(10).   Depending  on  what  components 
are  present  during  a  given  simulation,  the  following  parameters  and 
variables  must  be  specified 
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(1)  Generators  of  generating  units  —  A(1,I)  to  A(17,I),  A(20,I) 
to  A(33,I),  B(14,I),  L(I+99),  Y(j)  to  Y(J+10),  and  F(J+8) ; 

(2)  MG  sets  -  A(1,I)  to  A(17,I),  A(20,I)  to  A(26,I),  A(31,I)  to 
A(46,I),  A(49,I)  to  A(61,I),  A(68,I)  toA(80,I),  B(42,I), 
L(I+99),  Y(J)  to  Y(J+18),  and  F(J+16) ; 

(3)  Induction  motors  —  A(1,I)  to  A(10,I),  A(11,I)  to  (depending 
on  the  value  of  A(10,I)),  L(I+99),  and  Y(J)  to  Y(J+6); 

(4)  Distribution  transformers  —  A(1,I)  to  A(12,I),  L(I+99) ,  and 
Y(J)  to  Y(J+2); 

(5)  Commercial  power  system—  C(35)  to  C(48),  L(8),  and  Y(J)  to 
Y(J+2). 

One  of  the  iterms  required,  C(l)  ,  is  the  integrating  time  step.   In 
the  absence  of  induction  motors  from  the  simulation,  an  integrating  step 
of  1  millisecond  should  be  sufficient.   However,  due  to  the  fact  that 
induction  motors  operating  at  or  near  full  load  have  very  small  time 
constants,  the  integrating  step  should  probably  be  reduced  to  about  one- 
third  of  a  millisecond  when  induction  motors  are  involved  in  a  simulation, 

5.3  Input  Format 

The  MAIN  program  requires  input  information  which  is  described  in 
Section  5.6.  The  data  for  SUB2  must  be  placed  directly  after  the  data 
for  the  MAIN  program.  When  the  word  deck  is  referred  to  in  this 
section,  it  refers  to  the  data  deck  for  SUB2. 

The  first  three  cards  of  the  deck  contain  the  information  for  the 
common  array  TITLE.   This  information  is  contained  in  format  13A6  and 
is  a  verbal  description  of  the  simulation.   The  description  is  printed 
out  at  the  beginning  of  the  output .   The  next  three  cards  of  the  deck 
contain  the  information  for  the  common  array  HEAD.   The  information 
HEAD  is  also  a  verbal  description  contained  in  format  13A6 .   HEAD 
provides  a  method  for  explaining  the  information  contained  per  record 
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in  the  outputs  of  subroutine  TAPE2.   The  verbal  description  in  HEAD 

appears  in  the  outputs  produced  by  TAPE2  right  after  TITLE. 

Following  the  first  6  cards  of  the  deck  are  cards  which  can  be 
of  three  general  categories.   Each  category  is  characterized  by  one 
of  the  three  letters  I,  P,  or  G  which  is  punched  in  the  first  column  of 
the  card.   The  I-cards  contain  the  input  information  of  Section  5.2 
which  goes  into  the  common  arrays  X,  Y,  F,  L,  C,  D.  A,  and  B.   The 
P-cards  contain  instructions  for  the  output  subroutine  PRINT2.   The 
G-cards  contain  instructions  for  subroutine  PL0T2.   The  I-,  P-,  and 
G-cards  can  appear  in  any  order  in  the  data  deck;  however,  the  P-  and 
G-cards  are  executed  by  PRINT2  and  PL0T2  in  the  order  they  appear.   The 
most  logical  order  would  be  to  group  the  P-cards  and  G-cards  into 
separate  groups  and  to  place  them  in  the  data  deck  in  that  order. 

Let  us  first  consider  the  I-cards.  The  format  for  the  I-cards  can 
be  either  for  the  one-dimensional  arrays  X,  Y,  F,  L,  C,  and  D,  or  for 
the  two-dimensional  arrays  A  and  B.   For  the  one- dimensional  arrays,  the 
format  of  an  I-card  is  A1,1.X,A1,I3,1X,I3,6E10.4.   The  first  alphanumerical 
character  of  an  I-card  is  I.   The  second  alphanumerical  character 
identifies  the  array  whose  values  are  contained  on  the  card.  The 
two  integers  contained  on  the  card  specify  the  lower  and  upper  values 
of  the  subscript  of  the  array  whose  values  are  contained  on  the  card. 
The  values  of  the  array  follow  the  second  integer.   For  example,  consider 
an  I-card  which  has  the  second  alphanumerical  character  equal  to  C  and  the 
first  and  second  integers  are  1  and  6;  then,  the  card  contains  the  values 
of  C(l)  through  C(6) . 

The  format  of  an  I-card  for  the  two-dimensional  array  A  or  B  is 
A1,1X,A1,I2,I2,1X,I2,6E10.A.   The  first  integer  specifies  the  value 
of  the  second  subscript  of  the  array  A  or  B.   The  second  and  third 
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integers  specify  the  lower  and  upper  values  of  the  first  subscript  of 
the  array  A  or  B  whose  values  are  contained  on  the  card,   The  alpha- 
numerical  characters  have  the  same  significance  as  before.   Consider  the 
example  in  which  the  three  integers  are  7,  10,  and  15,  and  the 
second  alphanumerical  character  is  A;  then,  the  I-card  contains  the 
values  for  A(10,7)  through  A(15,7). 

The  P-cards  contain  the  information  which  tells  subroutine  PRINT2 
the  values  of  the  common  arrays  to  be  printed  out.  For  the  one-dimensional 
arrays,  the  format  of  the  P-cards  is  A1,1X,A1,I3,1X,I3.   For  the  two- 
dimensional  arrays,  the  format  is  A1,1X,A1,I2,I2,1X,I2 .  The  meaning 
of  the  information  punched  on  the  P-card  is  similar  to  that  punched 
on  the  first  10  columns  of  the  I-card.   For  example,  consider  the  P- 
card  that  has  the  two  alphanumerical  characters  P  and  B  and  the  three 
integers  3,  5,  and  22;  then,  the  values  of  B(5,3)  through  B(22,3)  will 
be  printed  out  by  subroutine  PRINT2. 

The  G-cards  perform  the  same  function  for  subroutine  PL0T2  that  the 
P-cards  perform  for  subroutine  PRINT2  ;   the   format  is  exactly  the 
same  as  that  of  the  P-cards. 

The  last  card  of  the  data  deck  must  be  a  card  with  the  letter  R 
in  the  first  column  and  the  rest  of  the  columns  blank.   This  card 
informs  the  program  that  all  the  data  cards  have  been  read  in.   It  is 
important  to  remember,  as  stated  earlier,  that  in  addition  to  the  data  deck, 
described  in  detail  above, the  data  deck  for  the  MAIN  program  must  precede 
it. 

Any  number  of  I-cards  may  be  used  to  insert  the  input  data  into  the 
program.   Due  to  the  size  of  the  arrays  EP,  LP1,  LP2,  LP3,  EG,  LG1, 
LG2,  and  LG3,  which  contain  instructions  for  subroutines  PRINT2  and  PL0T2, 
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only  50  P-  or  G-cards  may  be  present  for  a  given  simulation, 

5.4  Output  Available 

The  parameters  that  the  SUB2  program  calculates  were  given  in 
Section  4.3.   All  of  these  parameters  calculated  by  the  SUB2  program 
are  stored  in  the  common  arrays  and  can  be  obtained  as  output  by  using  the 
P-  and  G-cards.   The  exact  location  of  a  particular  parameter  can  be 
determined  by  utilizing  Appendix  B.  However,  it  is  important  to  realize 
that  subroutine  PRINTO  produces  a  printout  at  the  end  of  each  simulation 
which  gives  the  values  of  the  dependent  variables  and  a  few  other 
variables  of  SUB2  that  must  be  specified  in  the  initial  conditions  of 
a  simulation.   For  the  initial  simulation,  approximate  initial  conditions 
can  be  calculated  by  the  method  described  in  the  following  section. 
By  conducting  a  steady-state  simulation  and  then  obtaining  the  output 
from  PRINTO,  accurate  initial  conditions  are  available  for  subsequent 
simulations. 

5.5  Method  of  Obtaining  Initial  Conditions 

By  conducting  a  steady-state  simulation  based  on  approximate  initial 
conditions  and  then  obtaining  the  output  produced  by  PRINTO,  as  explained 
in  the  preceding  section,  accurate  initial  conditions  are  available  for 
subsequent  simulations.   This  section  describes  the  method  for  obtaining  the 
approximate  initial  conditions  for  the  first  run.   The  procedure  below 
provides  the  initial  conditions  for  all  components  connected  to  the 
main  bus  including  generators  of  generating  units,  motors  of  MG  sets, 
induction  motors,  distribution  transformers,  and  the  commercial  power 
system.   The  generators  of  the  MG  sets  are  not  described;  however,  the 
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initial  conditions  for  these  components  can  be  obtained  using  the  same 
method  used  for  the  generators  of  generating  units ,   The  various  buses 
of  the  MG  sets  do  not  have  to  be  in  synchronism. 

The  power  plant  is  assumed  to  be  balanced.   Given  the  voltage  of 
the  main  bus  along  with  the  power  and  power  factor  of  a  component,  one 
can  readily  calculate  the  maximum  amplitude,  I,  of  the  phase  currents  from 
the  component  to  the  main  bus.   Assuming  time  equal  to  zero  is  when  the 
phase-a  voltage  of  the  main  bus  is  maximum  and  abc  phase  sequence,  the 
instantaneous  phase  currents  are 


i     =  I   cos<J>  (5.1) 


ib  =  I  cob <<fr  +  J1)  (5.2) 


i     =  I  cos(<fr  -  2JL)    .  (5.3) 

c  J 


This  procedure  provides  values  for  the  instantaneous  phase  currents 
of  generators  of  generating  units,  motors  of  MG  sets,  induction  motors, 
and  the  commercial  power  system.   For  the  generator  of  a  generating  unit, 
i,  and  i  equal  zero.   The  remaining  parameters  needed  for  the  generator 
are  calculated  using  the  following  procedure: 


(1)      9      from 
o 


)     =   tan 
o 


.   /  V  +  IX^sin<}>  +  IK.  coscj) 
-1     Q         a 

IX,.cosd>  -   IR  sind) 
Q  a 


(5.4) 


where  X       =  oj(L     +  M  .  )  (5.5) 

a  a  ab 

X       -  4  uL  (5.6) 

sa       2        sa 

XA      =  X     -   X  (5.7) 

Q  a  sa 
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(2)      I_  -   I      from 
f         s 


IX  cos<J>  +  IX     cos (26  +  d>)   -  IR  sine}) 
a         sa o       a 

f         s  X   ..cos  6 

af         o 

(5.8) 


where  X   .  =  wM   .  (5.9) 

af  af 


(3)      X      from 


(4)      I      from 
s 


(5)      I     from 


(6)      E     from 


(7)      e2   from 


If  =  Lf  (If  "   Is)    "  |  MafIcos(9o  +  (J.)  (5.10) 


Is  -  C(X     -   As)2  (5.11) 


h  =   Xs  +   (If  "  Is)  (5-12) 


Ef  =  LfRf  (5.13) 


e2«fk2Vu  (5.14) 

(8)  E      _   from 

ref 

E      _  =  -  k2V0.   +  ^-  (R     +  R,)I  (5.15) 

ref        tt     *   11       k3       m  f     s 

(9)  e&  =  e2      .  (5.16) 
When  steps    (1)    through    (5)    are  used,    the  values   of   the  dependent  variables 
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i_,  i,,  i  ,  and  9  of  the  motor  of  an  MG  set  can  be  obtained.   The  value 
f   d   q 

of  the  field  excitation  of  the  motor  is  provided  by  Equation  (5.13).   Using 
the  equation 


eex  "  kV«  (5'17) 


the  value  of  k  can  be  calculated.   The  remaining  dependent  variable  of  the 
motor,  co  ,  is  obtained  by  dividing  the  frequency  of  the  main  bus  by  the 
number  of  pole-pairs  of  the  motor. 

For  induction  motors  the  remaining  variables  1  ,  i„.  8  .  and  u 

a        p        o  m 

are  calculated  as   follows: 


(1)      6      (by   letting  \p  =   0)    from 


.    IV  +  IX  sin<j>  +  IR  cos<j) 

<Jj  +   6     =   tan   L         TV     a     __      a  j  (5.18) 

o  \       IX  cos  (J)  -   IR  sm<J> 

cl  3. 


(2)      i     equal  I'    (since   41  =   0)  ,   where 
IX  cos<}>  -   IR  sinij) 

11  ■     a  x    cose  3 "-19> 

aa         o 


(3)      i     =  0    (since  4=0)  (5.20) 

(A)      s   from 

R' 

s  =  ti3-  cot(6     +  ij))  (5.21) 

A  O 

a 


(5)      a)     from 
m 


(1  -   s)co 


u     =  .  (5.22) 

m  n  v  ' 

The  electromagnetic   torque  of  the  motor  must  equal   the  mechanical 
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torque  of  the  load  of  the  motor  which  is  given  by  the  equation 

2 
nR  ,  I' 

(5.23) 


SCO 


The  dependent  variables  of  the  distribution  transformer  are  the 
secondary  currents  iA,  i„ ,  and  i_,  which  are  given  by  the  equations 

Ad  L 


i.   »  -  —  cos(<j>  +  I1  )  (5.24) 

A  /3  6 

i_  =  —  cos«>  -  I  )  (5.25) 

i_  =  —  cos(<|.  +|  ).  (5.26) 

C       /3  6 

The  maximum  amplitude  of  the  secondary  line-to-line  voltages  can  be 
computed  by  using  a  phasor  diagram  and  taking  into  consideration  the 
leakage- reactance  and  winding  resistance  of  the  transformer. 

In  addition  to  the  values  of  the  dependent  variables  of  the 
commercial  power  system  previously  described,  the  values  of  the  maximum 
amplitude,  E  ~,  and  of  the  phase  angle,  x»  of  the  voltage  source  are 
obtained  from  a  phasor  diagram  which  considers  the  various  reactance 
and  resistance  drops  of  the  interconnection  transformer,  transmission 
line,  and  power  source. 

As  can  be  seen  from  this  section,  getting  the  initial  values  of 
the  dependent  variables  and  other  required  initial  conditions  is,  to 
say  the  least,  tedious;  however,  for  a  given  power  plant  configuration, 
this  only  has  to  be  done  once.   For  subsequent  simulations  the  values  from 
a  steady-state  run  can  be  used. 
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In  arriving  at  Equations  (5.1)  through  (5.25),  the  convention  used 
for  stator  currents  and  for  the  polarity  of  terminal  voltages  is  that 
shown  in  Figures  2  through  4.   This  situation  necessitates  that  the 

TT 

range  of  <j>  for  alternators  be  from  -  -r     to  0  for  leading  power  factors 

TT 

and  from  0  to  -x  for  lagging  power  factors.  The  range  of  <J>  for  motors 
is  from  t  to  it  for  leading  power  factors,  and  from  tt  to  ■=—  for  lagging 
power  factors. 

5.6   Input  Information  Required  for  Main  SPEED  and  TORQUE  Programs 

In  order  to  run  the  SUB2  program,  it  has  already  been  stated  that 
a  MAIN  program  is  required.   The  data  required  for  the  MAIN  program 
should  be  placed  just  before  the  data  deck  for  SUB2  as  stated  in 
Section  5.3.   A  data  card  must  be  placed  in  front  of  the  complete 
input  data  deck  (both  MAIN  and  SUB2  data  decks)  which  has,  in  format 
15,  an  integer  which  is  equal  to  the  number  of  simulations  in  one 
computer  run. 

The  included  main  SPEED  program  requires  2  data  cards.  The  first 
card  uses  format  13A6  and  contains  a  verbal  description  of  the 
simulation.   The  second  card  contains  in  format  2E10.3  the  duration  of 
the  simulation  in  seconds  and  the  speed  of  the  shafts  of  the  generating 
units  in  rad/sec. 

The  included  main  TORQUE  program  requires  two  cards  plus  a  card 
for  each  generating  unit.   The  first  card  contains  a  verbal  description 
of  the  simulation  in  format  13A6 .   The  second  card  contains  the  number 
of  generating  units,  the  integrating  time  steps,  and  the  duration  of 
the  simulation  in  seconds  in  format  15,  2E10.4.   The  succeeding  cards 
for  each  generating  unit  have  a  format  of  3E10.4  which  contains  the 
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initial  value  of  the  mechanical  speed  of  the  shaft  of  the  generating 

unit  in  rad/sec,  the  developed  mechanical  torque  of  the  shaft  in  ft-lb, 

2 
and  the  total  inertia  of  the  shaft  in  lb-ft  . 
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CHAPTER  6 

COMPUTER  PROGRAM  MODIFICATION  AND  POWER  PLANT  SIMULATION 

6. 1  Program  Modification 

When  the  original  program  was  developed,  each  subroutine  was  verified 
to  operate  properly  when  run  by  itself,  but  a  complete  power  plant 
simulation  utilizing  the  full  SUB2  program  was  never  attempted.   Originally, 
the  power  plant  to  be  simulated  consisted  of  fewer  components  than  that 
shown  in  Figure  1  and  contained  a  duplex  reactor  which  was  to  be  used 
to  drive  the  high  voltage  power  supplies.   In  the  modified  program  of 
Appendix  C,  a  few  statements  referring  to  the  duplex  reactor  remain, 
since  removing  them  would  have  necessitated  a  larger  amount  of  program 
reorganization  and  renumberingc   These  additional  FORTRAN  statements 
require  very  little  additional  computer  space. 

In  order  to  make  the  computer  program  compatible  with  the  power 
plant  of  Figure  1,  the  following  modifications  were  made:   (1)   The 
dimensions  of  the  common  arrays  were  lengthened;  (2)   the  L  array  was 
reorganized  and  the  corresponding  FORTRAN  statements  in  the  various 
subroutines  were  changed  to  reflect  the  reorganization  of  the  L  array; 
and  (3)  a  few  minor  programming  errors  were  corrected.  All  of  the 
FORTRAN  statements  which  were  changed  have  been  noted  by  shifting  the 
identification  sequence  numbers  to  the  left  1  space.   This  should  simplify 
future  program  changes  due  to  subsequent  power  plant  modifications. 

6. 2  Development  of  a  Complete  Power  Plant  Simulation 

The  final, full  power  plant  simulation  was  the  conclusion  of 
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several  small  simulations.   The  first  step  consisted  of  a  simulation 
consisting  of  the  commercial  power  source  supplying  a  RL  load;  the  next 
simulation  consisted  of  commercial  power  supplying  a  RL  load  and  an  MG 
set;  then  commercial  power  supplying  a  RL  load, an  MG  set,  and  an  induction 
motor;  and,  then  commercial  power  supplying  a  RL  load, an  MG  set,  an 
induction  motor,  and  a  distribution  transformer.   This  methodical  approach 
allows  each  subroutine  to  be  checked  for  proper  operation  before 
complicating  the  analysis  by  adding  more  components.   Using  this 
method,  the  minor  programming  errors  were  found. 

The  next  step  was  to  repeat  the  above  simulations,  but  to  use  4 
diesel  generators  instead  of  the  commercial  power  source.  The  reason  for  using 
4  diesel  generators  instead  of  lis  that  the  4  diesels  will  be  used  in 
several  later  simulations. 

After  verifying  that  the  basic  system  performed  properly,  using 
first  a  commercial  power  source  and  then  4  diesel  generators  ,  the 
rest  of  the  components  of  Figure  1  were  added.   A  simulation  was  made 
with  each  source  of  power  —  commercial  power  or  4  diesel  generators  — 
supplying  the  full  power  plant.   This  step  was  necessary  in  order 
to   synchronize   the   commercial   power  source  with  the  4  diesel 
generators  for  parallel  operation.   After  completing  the  two  individual 
simulations,  the  phase  currents  of  the  main  bus  were  plotted  for  each 
simulation  and  the  phase  angle,  x>  of  the  commercial  power  source  was 
changed  to  synchronize  the  4  diesel  generators  with  the  commercial 
power  source.   With  both  the  commercial  power  source  and  4  diesel 
generators  operating  in  parallel,  a  steady-state  run  of  .75  second 
duration  was  conducted.   The  initial  conditions  obtained  from  this  run 
were  then  used  for  all  subsequent  simulations  using  this  particular  power 
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plant  configuration.   Each  time  a  simulation  was  run  it  took  a  short 
period  of  time  for  the  program  to  reach  steady  state  since  all  the 
derivatives  are  set  to  zero  prior  to  the  start  of  the  simulation. 

6. 3  Loss  of  Commercial  Power  Simulation 

Table  1  contains  the  input  information  required  in  the  standard 
input  format  form  specified  in  Section  5„3  for  the  SUB2  and  main 
SPEED  programs.   The  power  plant  simulated  is  identical  to  that  of 
Figure  1  except  that  it  has  4  vice  6  diesel  generators,  8  vice  9  MG 
sets,  and  15  vice  16  distribution  transformers.   The  RL  load  is  adjusted 
so  that  the  power  plant  is  initially  operating  at  50  percent  of  its 
capacity.   The  diesel  generators  are  operating  at  55  percent  of  their 
capacity  and  are  supplying  50  percent  of  the  power  required  by  the  power 
plant.   The  commercial  power  source  supplies  the  other  50  percent  of 
the  required  power.   The  whole  power  plant  is  operating  at  a  0«8  power 
factor.   The  integrating  step  throughout  the  simulation  is  .0003  seconds. 

At  1  second,  a  single-phase  fault  occurs  at  the  primary  side  of  the 
commercial  power  interconnection  transformer;  at  1.1  seconds,  the 
commercial  power  system  is  removed  from  the  main  bus. 

Some  of  the  results  of  the  simulation  are  plotted  in  Figures  9  and 
10.   Figure  9  is  the  instantaneous  three-phase  power  of  a  diesel  generator 
versus  time,  and  Figure  10  is  the  percent  error  of  the  line-a  to  line-b 
voltage  of  the  main  bus  versus  time.  Additional  results  could  be  plotted, 
but   these   two  figures   exemplify  what  can  be  obtained  from  the 

program.   Again,  it  must  be  mentioned,  a  more  complicated  and  precise 
MAIN  program  is  needed  to  accurately  simulate  the  power  plant . 
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TABLE  1.   INPUT  DATA  REQUIRED  FOR  TRANSIENT  SIMULATION 


1 

TQAMMFNT    pHN    FOP    THFSIS 

4.0  37.69911 

TPAMSIFNT  PUN  WITH  FAULT  ON  ANO  THFN  LOSS  OF  COM  PWR:  TNlTTALLY 
IISTN^  COMMFPCIAL  POWFP  SOhPCF  ANO  4  GFNFPATOPs  FFFDTNG  AND  PL  LOAD 
AMD  ?  WF^T..  ROOIIF  II,  ITT*  t  TV  MG  SFTS.  4  IM.  IS  OIST  TRANS 

FA!)!  T  ON  COM  PVR  AT  1.0  SFC.  L<~)SF  OHM  DWP  AT  1.1  SFCJ 


T  v  \ 

1 

0.0 

T  C   1 

6 

.0001 

5RR3.13 

9.1?0? 

9.1?0? 

9.1?02 

.01*144 

T  G   7 

1? 

.01*144 

.01R144 

3600. 

3600. 

1600. 

o.o 

T  G  13 

IS 

3600. 

0.0 

0.0 

T  L   1 

s 

4.1 

S.l 

4.1 

15.1 

1.1 

T  L   7 

10 

0.0 

1.1 

30.1 

0.0 

I  Lino 

10^ 

1.1 

1.1 

1.1 

1.1 

?.l 

2.1 

T  Lin* 

111 

?.l 

?.l 

?.l 

?.l 

?.l 

2.1 

T  Lll? 

117 

3.1 

3.1 

3.1 

3.1 

4.1 

4.1 

T  Lll* 

l?3 

4.1 

4.1 

4.1 

4.1 

4.1 

4.1 

T  Ll?4 

l?9 

4.1 

4.1 

4.1 

4.1 

4.1 

4.1 

I  mn 

130 

4.1 

I  C  35 

40 

.00046 

.017?* 

.00035 

.003456 

.000193 

.0173 

T  G  41 

46 

25??. 

5.974? 

3600. 

0.0 

3600. 

1.1 

1  C  47 

4* 

1.0 

3600. 

T  A  1  1 

6 

.005006 

.00?4ft7 

.00153 

,2?**4 

.00?01 

.003754 

T  A  1  7 

1? 

9.?** 

.07 

.0006694 

.004667 

.0?6? 

2.0ft 

T  A  113 

17 

.0067S 

.113*3 

10. 

195.014 

.0007205 

I  A  1?0 

?5 

3600. 

0.0 

111.4 

.4 

.017* 

.06 

T  A  1  ?6 

H 

.001*364 

40. 1Q? 

.1 

.03?4* 

1.0 

5?. 

i  a  n? 

33 

500. 

?000. 

T  R  114 

14 

116.599 

T  Y   1 

6 

319. ?57 

-?94.?13 

-?q.044 

56.547 

.7061 

-.07?2 

T  v   7 

11 

4.S9? 

419.018 

-.?7?9 

101.015 

-.01??8 

T  F   Q 

9 

-.0404 

I  A  ?  1 

6 

.OOSA06 

.00?4R7 

.00153 

.??8*4 

•00?Ol 

.003754 

T  A  ?    7 

1? 

9.?*6 

.07 

.0006694 

.004667 

•  0?6? 

2. OR 

T  A  213 

17 

.0067S 

.113*3 

10. 

195.014 

.000?205 

T  A  ??0 

?5 

3600. 

0.0 

111.4 

.4 

.017* 

.0* 

T  A  ??6 

31 

.0036364 

40. 1«? 

.1 

.0324ft 

1.0 

52. 

T  A  ?3? 

33 

500. 

?000. 

I  B  ?14 

14 

116. S99 

T  Y  1? 

17 

319. ?S7 

-?94.?13 

-?c;#044 

S6.547 

.7063 

-.07?? 

1  Y  IB 

?? 

4.09? 

419.01* 

-.?7?9 

101.015 

-.01??* 

T  F  ?0 

?0 

-.0404 

I  A  3  1 

6 

.005*06 

,00?4*7 

.00153 

.22**4 

.00?01 

.0037S4 

T  A  1  7 

1? 

9.?«6 

.07 

.0006694 

.004667 

.026? 

?.08 

T  A  113 

17 

.0067S 

.113«3 

10. 

195.014 

.000^205 

T  A  3?Q 

?S 

3600. 

0.0 

111.4 

.4 

.0170 

.06 

TABLE  1.  —  CONTINUED 


40 


3?6 

33? 

314 

?1 

■?Q 

31 

4    1 

4  7 
413 

4?o 
4?<s 
43? 

414 

T4 
40 
4? 

5  1 
5    7 

ci3 
«^?n 
^pft 
sn 

537 
^43 

R49 

5*1 

^ftR 

=;74 
■^ro 

^4? 

45 

SI 

57 

63 

61 

*     1 

ft     7 

613 
ft?0 
APft 
*31 
637 
*43 
ft49 
ft55 
ft  ftl 


31 
3? 
14 
PR 
73 
31 

ft 
IP 
17 
?^ 
31 
33 
14 
3Q 
44 
4? 

ft 
1? 
17 
PS 

?ft 

3ft 
4? 
4* 
54 
ftO 
ftl 
7? 
7Q 
PO 
4? 

50 
^ft 
ft? 

ft3 
ftl 
ft 
1? 
17 
PS 
?£, 
TA 
4P 
4ft 

c;4 
ftn 
ftl 


,003ft3*4 

^00. 

1 lft. ^9Q 

319.P57 

4.RQ? 

-.0404 

.005R06 

9.?R* 

.00675 

3ft00. 

.003ft3ft4 

500. 

1 lft. 599 

319. ?S7 

4.89? 

-.0404 

.010S7S 

P.8? 

,01ft?95 

3ftOO. 

Ift377. 

.O0R41 

1  .R?« 

.0???5ft 

10ft. 447 

.1 

0.0 

SRR3.13 

O.O 

0.0 

4^.?=;?ft 

-31  ,64?9 

4.ftft9 

-,0ft?43 

,4ft0?9 

,00ft405 

.010^75 

?.R? 

,01ft?95 

3ft00. 

Ift377. 

•00«41 

1  ,R?« 

.0???5ft 

10ft. 447 

.1 

0.0 


40. 1«? 
?000. 


,03?4R 


-?94.?13      -?t;.044         56.547 
41Q.nl8         -,?7?9  1 01  .01 S 


1  .0 


.70ft3 
-.01??R 


5?. 


-.07?? 


.00P4R7 

.07 

.11333 

0.0 

40. 1R? 

?000. 


.00153  .2P884 

.0006694       .004ftft7 


10. 
11  1.4 
.1 


-P94.213       -?q.044 
419.018  -,?7?0 


A  ftftR  73  5RR3.13 


.0047H 
.07 

.095^77 
0.0 

.003785 

.07 

.l?9o39 

.4 

.094425 

0. 
3ft00. 


12.67S 

1?5.664 

-.0011 


.O047H 
.07 

,095?77 
0.0 

.0037R5 

.07 

.1P9039 

.4 

.094425 

0. 


.003431 
.OOP^Oft 
3. 
.012739 

,00?R 
.003?6B 
R0.43? 
.0178 
1  . 

5?. 85 
3ft00. 


lR.7ft7 
29.083 
4.ft67 


.003431 
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Symbol 
a 


e 


e'2 

E3 


eA,,eB"eCf 


ex 


fo 
Jref 


^2 


Description 

primary  to  secondary  turns -ratio  of 
transformer 

constant  in  formula  for  equivalent  field 
saturation  current 

instantaneous  voltage  rise 

output  voltage  of  three-phase,  full -wave 
rectifier  in  terminal -voltage  feedback 
loop  of  regulator 

output  voltage  of  quadratic  filter  in 
terminal -voltage  feedback  loop  of  regulator 

derivative  of  e2  with  respect  to  time 

output  voltage  of  regulator  amplifier 

limit  of  output  voltage  of  regulator 
amplifier 

output  voltage  of  feedback  network  in 
regulator 

integral  of  ei*  from  time  zero  to  time  t 

instantaneous  voltages  of  phases  A' ,  B' 
and  C  of  power  source  in  commercial 
power  system 

excitation  voltage  for  synchronous  motor 

instantaneous  voltage  rise  of  field  winding 

value  of  e.p  in  balanced  steady  state 

value  of  e^  at  time  zero 

reference  voltage  of  regulator 

limit  of  field  voltage  of  synchronous 
alternator  due  to  saturation  of  exciter 
transformers 

maximum  amplitude  of  e.,,  e„,  and  e^, 

maximum  amplitude  of  e.,2,  eRf-  and  ep,2 

instantaneous  current 


Units 


amp/volt2 -sec 
volt 

volt 

volt 

volt/sec 
volt 

volt 

volt 
volt -sec 

volt 
volt 
volt 
volt 
volt 
volt 

volt 
volt 
volt 

amp 


50 
Symbol  Description  Units 

I  maximum  amplitude  of  phase  currents  in 

balanced  steady  state  amp 

II  maximum  amplitude  of  currents  of  a&  rotor 
windings  of  induction  motor  in  balanced 

steady  state  amp 

i  ,  i,  ,  i    instantaneous  currents  of  phases  a,  b  and  c     amp 

i. ,  ig,  ip    instantaneous  currents  of  phases  A,  B  and  C      amp 

i  ,  ,i,  ,i    instantaneous  currents  of  windings  ab,  be 

and  ca  in  A -connected  side  of  transformer       amp 

^AB'^BC'^CA   instantaneous  currents  of  windings  AB,  BC 

and  CA  in  A-connected  side  of  transformer       amp 

ij        current  of  direct  amortisseur  winding  amp 

ir        instantaneous  current  of  field  winding         amp 

Ir  value  of  i.p  in  balanced  steady  state  amp 

i££       field- forcing  current  of  exciter  of 

synchronous  alternator  amp 

i«  ,ijL,i-^   instantaneous  currents  of  phases  a,  b  and 
c  of  RL  load  of  main  bus  or  of  load  of 
bus  of  MG  set(s)  amp 

^LA'^LB'^LT   instantaneous  currents  of  phases  A,  B  and 

C  of  load  of  distribution  transformer  amp 

I         moment  of  inertia 
m 

i         current  of  quadrature  amortisseur  winding       amp 

I         value  of  equivalent  field  saturation  current 

in  balanced  steady  state  amp 

i  ,  ig,  i    instantaneous  currents  of  a3o  rotor  windings 

of  induction  motor  amp 

ln  phasor  of  current  of  a  rotor  winding  of 

induction  motor  amp 


a 


k         gain  constant  in  excitation  voltage  source 
of  synchronous  motor 

kj        gain  constant  in  reactive -load  share  control 

of  regulator  volt/amp 
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Symbol 
k2 

k3 
L 


V 


4) 

4> 


LD 


'dl 


jm 


Jeq2 


jn 


LJta,L£b,L£c 
Lia*hlb,Ljlc 


Description  Units 

gain  constant  of  quadratic  filter  in 
terminal -voltage  feedback  loop  of  regulator 

gain  constant  of  regulator  amplifier 

inductance  henry 

self- inductance  of  o  rotor  winding  of 

induction  motor  henry 

zero -phase -sequence  inductance  henry 

self -inductance  of  stator  windings  excluding 

saliency  effects  henry 

self -inductance  of  rotor  windings  of 

induction  motor  henry 

self- inductance  of  direct  amortisseur 

winding  henry 

synchronous  inductance  in  direct  axis         henry 

transient  inductance  in  direct  axis  henry 

subtransient  inductance  in  direct  axis         henry 

leakage  inductance  of  direct  amortisseur 

winding  henry 

leakage  inductance  of  direct -axis  stator 

winding  henry 

equivalent  leakage -inductance  of  transformer 

referred  to  Y-connected  secondary  henry 

self-inductance  of  field  winding  henry 

leakage  inductance  of  field  winding  henry 

nominal  inductance,  per  phase,  of  load  of 

bus  of  MF  set(s)  henry 

nominal  inductance,  per  phase,  of  load  of 
distribution  transformer  henry 

nominal  inductances  of  phases  a,  b  and  c 

of  RL  load  of  main  bus  henry 

instantaneous  inductances  of  phases  a,  b 

and  c  of  RL  load  of  main  bus  or  of  load  of 

bus  of  MG  set(s)  henry 
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Symbol                  Description  Units 

L.  .,LIR,LTr   instantaneous  inductances  of  phases  A,  B 

and  C  of  load  of  distribution  transformer  henry 

LN        inductance  of  grounding  reactor  henry 

L         self- inductance  of  quadrature  amortisseur 

^        winding  henry 

Ln        synchronous  inductance  in  quadrature  axis  henry 

U!        subtransient  inductance  in  quadrature  axis  henry 

L -       leakage  inductance  of  quadrature  amortisseur 

"        winding  henry 

Lno       leakage  inductance  of  quadrature -ax is  stator 


JQ* 


winding  henry 


L  maximum  contribution  from  saliency  to  self- 
inductance  of  stator  windings  and  to  mutual 
inductance  between  stator  windings  henry 

Lp        per-line  inductance  of  overhead  transmission 

line  in  commercial  power  system  henry 

Lj2       equal  to  Lj.  divided  by  a2  henry 

L.        inductance  of  per -phase  impedance  of  power 

source  in  commercial  power  system  henry 

Ly2       equal  to  L.  divided  by  a2  henry 

L         self -inductance  of  aB  rotor  windings  of 

induction  motor  henry 

M        mutual  inductance  henry 

Nf  ,       maximum  mutual  inductance  between  stator 

and  rotor  windings  of  induction  motor         henry 

M  ,       mutual  inductance  between  stator  windings 
a        excluding  saliency  effects  henry 

M  ,,  ,       mutual  inductance  between  rotor  windings  of 
a         induction  motor  henry 

M  ,       maximum  mutual  inductance  between  stator 

and  direct  amortisseur  windings  henry 

Mr       maximum  mutual  inductance  between  stator 

and  field  windings  henry 
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Symbol  Description  Units 

M         maximum  mutual  inductance  between  stator 
ac*       and  quadrature  amort isseur  windings  henry 

M         maximum  mutual  inductance  between  stator 
aa       and  ag  rotor  windings  of  induction  motor       henry 

M^  d       mutual  inductance  between  field  and  direct 

amort isseur  windings  henry 

n         number  of  pole -pairs 

ni        number  of  turns  in  primary  winding  of 
transformer 

Ni        equal  to  the  ratio  of  M  f  to  M^, 

112        number  of  turns  in  secondary  winding  of 
transformer 

N2        equal  to  the  ratio  of  M  -  to  M,., 

R         resistance  ohm 

R         resistance  of  stator  windings  ohm 

R  ,        resistance  of  rotor  windings  of  induction 
a        motor  ohm 

R,        resistance  of  direct  araortisseur  winding        ohm 

R  2       equivalent  winding -resistance  of  transformer 
^        referred  to  Y-connected  secondary  ohm 

Rr        resistance  of  field  winding  ohm 

R.        nominal  resistance,  per  phase,  of  load  of 

bus  of  MG  set(s)  ohm 

R.        nominal  resistance,  per  phase,  of  load  of 

distribution  transformer  ohm 

R.'        secondary  load -resistance  in  transformer 

equivalent  of  induction  motor  ohm 

RLA,RLB,RLC   instantaneous  resistances  of  phases  A,  B 

and  C  of  load  of  distribution  transformer        ohm 

R         magnetizing  impedance  of  exciter  transformers 

of  synchronous  alternator  ohm 
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Symbol                  Description  Units 

R         resistance  of  quadrature  amortisseur  winding  ohm 

R_,        per -line  resistance  of  overhead  transmission 

line  in  commercial  power  system  ohm 

R_,7       equal  to  R_  divided  by  a2  ohm 

R,.        resistance  of  per -phase  impedance  of  power 

source  in  commercial  power  system  ohm 

R.p       equal  to  R.  divided  by  a2  ohm 

s         fractional  slip  of  rotor  of  induction  motor  sec"1 

t         time  sec 

t2        time  constant  of  quadratic  filter  in  terminal - 

voltage  feedback  loop  of  regulator  sec 

ti        time  constant  of  quadratic  filter  in  terminal  - 

voltage  feedback  loop  of  regulator  sec2 

t3        time  delay  of  regulator  amplifier  sec 

ti*        time  constant  of  feedback  network  in  regulator  sec 

tjj        time  delay  of  feedback  network  in  regulator  sec 

Tdo       open-circuit  time  constant  of  direct  amortis- 
seur winding  sec 

TV        short-circuit  time  constant  of  direct 

amortisseur  winding  sec 

t  r  effective  field  time  constant  of  loaded 

e        machine  sec 

T£        open-circuit  time  constant  of  field  winding  sec 

Jl                   short-circuit  time  constant  of  field  winding  sec 

T"        open-circuit  time  constant  of  quadrature 

^        amortisseur  winding  sec 

T"        short-circuit  time  constant  of  quadrature 

amortisseur  winding  sec 

T        recovery  time  for  step  load  change  sec 
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Description  Units 

maximum  amplitude  of  phase  terminal  voltage 

drops  in  balanced  steady  state  volt 

instantaneous  terminal  voltage  drops  to 

ground  of  phases  a,  b  and  c  volt 

instantaneous  voltage  drops  to  ground  of 

phases  A,  B  and  C  volt 

instantaneous  terminal  voltages  of  line-a- 
to-line-b,  line-b-to-line-c  and  line-c-to- 
line-a  volt 

instantaneous  voltages*of* line-A-to-line-B, 
line-B-to-line-C  and  line -C -to -line -A  volt 

maximum  amplitude  of  line -to -line  terminal 

voltage  volt 

instantaneous  voltage  drop  of  grounding 

reactor  volt 

reactance  ohm 

Xa        synchronous  reactance  in  direct  and  quadrature 

axes  excluding  saliency  effects  ohm 


Symbol 

V 

V  V 

vc 

VA>  VB' 

VC 

vab'vbc 

»vca 

VAB»VBC 

'VCA 

V 

VN 

a 


X  ,        mutual  reactance,  based  on  stator  frequency, 

between  stator  and  rotor  windings  in  transformer 
equivalent  of  induction  motor  ohm 

X  «        leakage  reactance  of  stator  windings  in 

transformer  equivalent  of  induction  motor       ohm 

X  ,«        leakage  reactance,  based  on  stator  frequency, 
of  rotor  windings  in  transformer  equivalent 
of  induction  motor  ohm 

Xa        mutual  reactance,  based  on  stator  frequency, 
between  stator  and  aB  rotor  windings  in 
transformer  equivalent  of  induction  motor       ohm 

Xn        synchronous  reactance  in  direct  axis  ohm 

Xq        synchronous  reactance  in  quadrature  axis        ohm 

X         self -reactance,  based  on  stator  frequency, 
of  a8  rotor  windings  in  transformer  equiva- 
lent of  induction  motor  ohm 
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Symbol  Description  Units 

Af        electrical  speed  deviation  for  application 
and  removal  of  field  excitation  in 
synchronous  motor  cps 

9         electrical  angle  of  axis  of  field  winding, 
or  of  a  rotor  winding  in  induction  motor, 
with  respect  to  axis  of  phase -a  stator 
winding,  measured  in  direction  of  rotor's 
rotation  rad 

6^        value  of  6  at  time  zero  rad 

o 

9         mechanical  angle  of  rotation  of  rotor  rad 

m 

X         instantaneous  flux  linkages  volt -sec 

Xjj,  X0,  Xq   instantaneous  flux  linkages  of  DQO  stator 

"      windings  volt -sec 

X,        instantaneous  flux  linkages  of  field 

winding  volt -sec 

X         instantaneous  flux  linkages  of  quadrature 
q        amortisseur  winding  volt -sec 

X         value  of  X-  at  which  field  saturation  begins   volt -sec 

X  ,  Xg,  X    instantaneous  flux  linkages  of  aBo  rotor 

windings  of  induction  motor  volt -sec 

t         electromagnetic  torque 

<j>         power  factor  angle  rad 

X         phase  angle  of  e.,  at  time  zero  rad 

\j;         phase  angle  used  in  currents  of  a3  rotor 

windings  of  induction  motor  rad 

u>        electrical  speed  of  rotor,  or  electrical 

frequency  rad/ sec 

w        mechanical  speed  of  rotor  rad/sec 

m 
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APPENDIX  B 
MAJOR  FORTRAN  ARRAYS  USED  IN  SUB2  PROGRAM 
(pages  58  to  92) 
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A  Array  (in  COMMON,  Dimensions:  80  x  35) 

Generators  of  Generating  Units 

Fortran  Description  Units    Algebraic 

A(1,I)      self -inductance  of  stator  wind- 
ings excluding  saliency  effects       henry       L 

A (2, 1)      mutual  inductance  between  stator 
windings  excluding  saliency 
effects  henry       M  , 

A(3,I)      maximum  contribution  from 

saliency  to  self -inductance  of 
stator  windings  and  to  mutual 
inductance  between  stator 
windings 

A (4, 1)      maximum  mutual  inductance 
between  stator  and  field 
windings 

A (5, 1)  maximum  mutual  inductance 
between  stator  and  direct 
amortisseur  windings 

A (6, 1)      maximum  mutual  inductance 

between  stator  and  quadrature 
amortisseur  windings 

A(7,i)      self- inductance  of  field  winding 

A (8, 1)      mutual  inductance  between  field 
and  direct  amortisseur  windings 

A(9,I)  self -inductance  of  direct 
amortisseur  winding 

A(10,I)     self- inductance  of  quadrature 
amortisseur  winding 

A(11,I)     resistance  of  stator  windings 

A(12,I)     resistance  of  field  winding 

A(13,I)     resistance  of  direct  amortisseur 
winding 

A(14,l)     resistance  of  quadrature 
amortisseur  winding 

A(15,I)     number  of  pole-pairs  n 


henry 

Lsa 

henry 

Maf 

henry 

M  A 

ad 

henry 

M 
aq 

henry 

Lf 

henry 

Mfd 

henry 

Ld 

henry 

L 

q 

ohm 

R 
a 

ohm 

Rf 

ohm 

Rd 

ohm 

R 

q 
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Fortran  Description 

A(16,I)     value  of  field  flux  linkages  at 
which  field  saturation  begins 

A(17,I)     constant  in  formula  for  equiva- 
lent field  saturation  current 

A(18,I) 

5       not  used 
A(19,I) 

A (20, I)     time  of  removing  generator  from 
main  bus 

A (2 1,1)     inductance  of  grounding  reactor 

A(22,I)     reference  voltage  of  regulator 

A(23,I)     gain  constant  in  reactive-load 
share  control  of  regulator 

A(24,I)      gain  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 

A(25,l)     time  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 

A(26,l)     time  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 

A(27,I)     gain  constant  of  regulator 
amplifier 

A(28,I)     time  delay  of  regulator 
amplifier 

A(29,I)     time  constant  of  feedback  net- 
work in  regulator 

A(30,I)      time  delay  of  feedback  network 
in  regulator 

A(31,I)     magnetizing  impedance  of  exciter 
transformers 

A(32,I)      limit  of  field  voltage  due  to 
saturation  of  exciter 
transformers 


Units    Algebraic 


volt -sec 


amp/volt2 -sec2   C 


sec 

henry 

volt 

volt/amp 


sec 


sec 


sec 


sec 


sec 


ohm 


volt 


E 


ref 


t'2 
t3 


t\ 


R 
m 
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Fortran  Description  Units    Algebraic 

A(33,I)     limit  of  output  voltage  of 

regulator  amplifier  volt       E3 


A(34,I) 

not  used 

A(35,I) 

A(36,I) 

value  of  field  voltage  at  time 

zero 

volt 

efo 

A(37,I) 

output  voltage,  at  time  zero,  of 
feedback  network  in  regulator 

volt 

de'4 
dt 

A(38,I) 
to 

not  used 

A(80,I) 

Motor-Generator  (MG)  Sets 

Motors 

A(1,I) 

self- inductance  of  stator  wind- 

ings  excluding  saliency  effects      henry      L 

A (2, 1)      mutual  inductance  between  stator 
windings  excluding  saliency 
effects  henry      M  . 

A(3,I)      maximum  contribution  from 

saliency  to  self- inductance  of 
stator  windings  and  to  mutual 
inductance  between  stator 
windings 

A (4, 1)      maximum  mutual  inductance 
between  stator  and  field 
windings 

A(S,I)  maximum  mutual  inductance 
between  stator  and  direct 
amortisseur  windings 

A (6, 1)      maximum  mutual  inductance 

between  stator  and  quadrature 
amortisseur  windings 

A(7,l)      self- inductance  of  field  winding 

A (8, 1)      mutual  inductance  between  field 
and  direct  amortisseur  windings 


henry 

Lsa 

henry 

Maf 

henry 

Mad 

henry 

M 
aq 

henry 

Lf 

henry 

Mfd 
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Fortran  Description 

A(9,I)      self -inductance  of  direct 
amort isseur  winding 

A(10,I)     self -inductance  of  quadrature 
amortisseur  winding 

A(11,I)     resistance  of  stator  windings 

A(12,I)     resistance  of  field  winding 

A (13, 1)     resistance  of  direct  amortisseur 
winding 

A (14, 1)     resistance  of  quadrature 
amortisseur  winding 

A(15,I)     number  of  pole-pairs 

A(16,I)     value  of  field  flux  linkages  at 
which  field  saturation  begins 

A(17,I)     constant  in  formula  for  equiva- 
lent field  saturation  current 


Units    Algebraic 


henry 


henry 
ohm 

ohm 
ohm 
ohm 


R 


a 


R, 


R. 


R 


n 


volt -sec 


amp/volt2 -sec2   C 


A  (18, 1) 
A(19,I) 

not  used 

A(20,I) 

time  of  removing  MG  set  from 
main  bus 

sec 

A(21,I) 

inductance  of  grounding  reactor 

henry 

A(22,I) 

gain  constant  in  excitation 

A(23,I) 

A(24,I) 

A(25,I) 
A(26,I) 


A(27,I) 

to 
A(30,I) 


voltage  source 

indicator  of  source  of  excitation  voltage 
>/0,  from  lines  a  and  b  of  main  bus 
<  0,  from  lines  b  and  c  of  main  bus 


electrical  speed  deviation  for 
application  and  removal  of  field 
excitation 

field  discharge  resistance 

total  moment  of  inertia  of  MG 
set 


not  used 


cps 
ohm 

lb -ft2 


n 


Af 
R 


fd 


m 
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Fortran  Description  Units    Algebraic 

Generators 

A(31,I)     self- inductance  of  stator  wind- 
ings excluding  saliency  effects      henry      L 

a 

A(32,I)     mutual  inductance  between  stator 
windings  excluding  saliency 
effects  henry      M&b 

A (33, I)     maximum  contribution  from 

saliency  to  self-inductance  of 
stator  windings  and  to  mutual 
inductance  between  stator 
windings 

A (34, 1)     maximum  mutual  inductance 
between  stator  and  field 
windings 

A(35,I)  maximum  mutual  inductance 
between  stator  and  direct 
amortisseur  windings 

A (36, 1)     maximum  mutual  inductance 

between  stator  and  quadrature 
amortisseur  windings 

A(37,I)     self- inductance  of  field  winding 

A(38,I)     mutual  inductance  between  field 
and  direct  amortisseur  windings 

A (39, I)  self- inductance  of  direct 
amortisseur  winding 

A(40,I)     self -inductance  of  quadrature 
amortisseur  winding 

A(41,I)     resistance  of  stator  windings 

A(42,I)     resistance  of  field  winding 

A(43,I)     resistance  of  direct  amortisseur 
winding 

A(44,I)     resistance  of  quadrature 
amortisseur  winding 

A(45,I)     value  of  field  flux  linkages  at 
which  field  saturation  begins 


henry 

Lsa 

henry 

Maf 

henry 

Mad 

henry 

M 
aq 

henry 

Lf 

henry 

Mfd 

henry 

Ld 

henry 

L 

q 

ohm 

R 
a 

ohm 

Rf 

ohm 

Rd 

ohm 

R 

q 

volt -sec 

X 
s 
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Fortran 
A(46,I) 

A(47,I) 
A(48,I) 
A(49,I) 
A(50,I) 

A(S1,I) 

A(S2,I) 

A(53,I) 


A(62,I) 

to 
A(65,I) 


Description 

constant  in  formula  for  equiva- 
lent field  saturation  current 


not  used 


reference  voltage  of  regulator 

gain  constant  in  reactive -load 
share  control  of  regulator 

gain  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 

time  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 

time  constant  of  quadratic  fil- 
ter in  terminal -voltage  feedback 
loop  of  regulator 


Units    Algebraic 


amp/volt2 -sec2   C 


volt 
volt/amp 


sec 


sec 


i-ef 
ki 


t2 

t'2 


A(54,I) 

gain  constant  of  regulator 
amplifier 

k3 

A(55,I) 

time  delay  of  regulator 
amplifier 

sec 

t3 

A(56,I) 

time  constant  of  feedback 
network  in  regulator 

sec 

ti» 

A(57,I) 

time  delay  of  feedback  network 
in  regulator 

sec 

tv 

A(58,I) 

magnetizing  impedance  of  exciter 
transformers 

ohm 

R 

m 

A(59,I) 

limit  of  field  voltage  due  to 
saturation  of  exciter 
transformers 

volt 

Es 

A(60,I) 

limit  of  output  voltage  of  regu- 
lator amplifier 

volt 

E3 

A(61,I) 

inductance  of  grounding  reactor 

henry 

h 

not  used 
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Description 

Units 

Algebraic 

A(66,I) 

value  of  field  voltage  at  time 
zero 

volt 

efo 

A(67,I) 

output  voltage,  at  time  zero,  of 
feedback  network  in  regulator 

volt 

de'4 
dt 

0 

Buses  of  MG  Sets 

A(68,I)     rated  maximum  line-to-line 

voltage  volt 

A(69,I)     indicator  for  parallel  operation  of  two  MG  sets 
>/0,  MG  set  is  connected  to  its  own  bus 
<  0,  MG  set  is  connected  to  bus  of  preceding  MG  set 


A(70,I) 

nominal  resistance,  per  phase, 
of  load 

ohm 

h 

A(71,I) 

nominal  inductance,  per  phase, 
of  load 

henry 

h 

A(72,I) 

time  of  disconnecting  the 
generator  from  bus 

sec 

A(73,I) 

time  of  commencement  of  step 
change  in  load 

sec 

A(74,I) 

fractional  step  change  of  load 

A(75,I) 

time  of  commencement  of  fault  on 
bus 

sec 

A(76,I) 

time  of  termination  of  fault  on 
bus 

sec 

A(77,I) 

describes  type  of  fault  on  bus 

<  1,  no  fault 

»  1,  single-phase  (a)  fault 

s  2,  two -phase  (a  and  b)  fault 

■  3,  three-phase  (a,  b  and  c)  fault 

>/4,  line-to-line  (a  to  b)  fault 

A(78,I)     time  of  commencement  of  sinusoi- 
dal variation  of  load  sec 

A (79, 1)     angular  frequency  of  sinusoidal 

variation  of  load  r ad/ sec 

A (80, 1)     fractional  amplitude  of  sinusoi- 
dal variation  of  load 
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La 


Induction  Motors 

A(1,I) 

self -inductance  of  stator 
windings 

henry 

A(2,I) 

mutual  inductance  between  stator 
windings 

henry 

A(3,I) 

self -inductance  of  a$  rotor 
windings 

henry 

A(4,I) 

maximum  mutual  inductance 
between  stator  and  ag  rotor 
windings 

henry 

A(5,I) 

resistance  of  stator  windings 

ohm 

A(6,I) 

resistance  of  rotor  windings 

ohm 

A(7,I) 

number  of  pole -pairs 

A(8,I) 

time  of  removing  motor  from  main 
bus 

sec 

A(9,I) 

total  moment  of  inertia  of  motor 
and  its  mechanical  load 

lb-ft2 

A(10,I) 

number  of  entries  in  table  of 
mechanical  torque  vs.  mechanical 
speed 

A(11,I) 

to 
A(80,I) 

table  of  mechanical  torque  vs. 
mechanical  speed  A(11,I),  A(13,I) 
and  so  on  are  the  speeds  in 

ab 


La 


M 
aa 

R 
a 

a' 


n 


Jm 


rad/sec;  A(12,I),  A(14,I)  and  so 
on  are  the  corresponding  torques 
in  ft -lb. 


Distribution  Transformers 

A (1,1)      equivalent  winding -resistance  of 
transformer  referred  to  Y- 
connected  secondary  ohm        R  - 

A(2,I)      equivalent  leakage -inductance  of 
transformer  referred  to  Y- 
connected  secondary  henry       L  - 

A(3,I)      primary  to  secondary  turns-ratio  a 

A(4,I)      nominal  resistance,  per  phase, 

of  load  ohm        RT 
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Description 

Units 

Algebraic 

A(S,I) 

nominal  inductance,  per  phase, 
of  load 

henry 

h 

A(6,l) 

time  of  commencement  of  step 
change  in  load 

sec 

A  (7, 1) 

fractional  step  change  of  load 

A(8,I) 

time  of  commencement  of  fault  on 
secondary 

A(9,i) 

time  of  termination  of  fault  on 
secondary 

A(10,I) 

describes  type  of  fault  on  secondary 

<  1,  no  fault 

*  1,  single -phase  (A)  fault 

**  2,  two -phase  (A  and  B)  fault 

s  3,  three-phase  (A,  B  and  C)  fault 

>  4,  line-to-line  (A  to  B)  fault 


A(11,I) 

time  of  removing  transformer 
from  main  bus 

A(12,I) 

rated  maximum  line -to -line 
voltage  of  secondary 

A(13,I) 

to 
A(19,I) 

not  used 

A(20,I) 

used  by  VMAXTR  as  initializing 
switch 

A(21,I) 

to 
A(80,l) 

not  used 

sec 


volt 
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B  Array  (in  COMMON,  Dimensions:  99  x  35) 

Generators  of  Generating  Units 

Fortran  Description 

B(1,I)      instantaneous  three-phase  power 
or  "average  three-phase  power" 

B(2,I)  "peak  reactive  power  per  phase" 

B(3,I)  electromagnetic  torque 

B(4,I)  percent  rotor  speed  error 

B(5,I)  electrical  speed  of  rotor 

B(6,I)      instantaneous  flux  linkages  of 
field  winding 

B(7,I)      instantaneous  value  of  equiva- 
lent field  saturation  current 

B(8,l)      derivative  of  i  with  respect 
to  Xf 

B(9,I)  uMafsin0 

B(10,I)  aMafsin(Q  -  y-) 

B(11,I)  aMafsin(0^) 

B(12,I)     output  voltage  of  three-phase, 
full -wave  rectifier  in  terminal - 
voltage  feedback  loop  of 
regulator 

B(13,I)     field  forcing  current  of  exciter 

B(14,I)     instantaneous  field  voltage 

B(15,I) 

to       not  used 
B(18,I) 

B(19,I)     cose 

B(20,I)      sin0 

B(21,I)     cos(e  ♦  y-) 
B(22,I)      sin(e  ♦  ^-) 


Units  Algebraic 

KW         p,  P 
KVA        Q 
ft -lb       t 


r ad/ sec 

volt -sec 

amp 

amp/volt -sec 
ohm 
ohm 
ohm 


volt 

amp 

volt 


a) 


iff 
e,. 
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B(23,I 

B(24,I 

B(25,I 

B(26,I 

B(27,I 

B(28,I 

B(29,I 

B(30,I 

B(31,I 
to 
B(99,I 


Description 


cos(0 


2tt 


3- 


■) 


sm(0  -  j-) 
cos  20 
sin20 


cos (20 


2tt 


3~- 


) 


sin  (20  +  y-) 
cos  (20  -  y-) 
sin  (20  -  y-) 


not  used 


Units    Algebraic 


Motor-Generator  (MG)  Sets 
Motors 
B(1,D 


B(2,I) 
B(3,I) 

B(4,I) 
B(5,l) 
B(6,I) 

B(7,I) 

B(8,I) 

B(9,I) 

B(10,I) 

B(11,I) 


instantaneous  three-phase  power 
or  "average  three-phase  power" 

"peak  reactive  power  per  phase" 

electromagnetic  torque 

percent  rotor  speed  error 

electrical  speed  of  rotor 

instantaneous  flux  linkages  of 
field  winding 

instantaneous  value  of  equiva- 
lent field  saturation  current 


derivative  of  i  with  respect 
to  Xf 


uM  rsin0 
af 


uM  _sin(0 


2-rr 


) 


uM 


2tt- 


lafsin(0  *  3-) 


KW 

P,  P 

KVA 

Q 

ft -lb 

Td 

rad/sec 

GO 

volt -sec 

xf 

amp 

*s 

amp/volt -sec 

ohm 

ohm 

ohm 
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Description 

B(12,l) 

instantaneous  field  voltage 

B(13,I) 

to 
B(18,I) 

not  used 

B(19,I) 

cos0 

B(20,I) 

sin0 

B(21,I) 

COS(0  ♦  y-) 

B(22,I) 

sin(0  ♦  y-) 

B(23,I) 

cos(0  -  y-) 

B(24,I) 

sin(0  -  =-) 

B(25,I) 

cos20 

B(26,I) 

sin20 

B(27,I) 

cos  (20  +  —-) 

B(28,I) 

sin  (20  +  ~) 

B(29,I) 

COS  (20  -  y-) 

B(30,I) 

sin  (20  -  ^0 

Generators 

Units    Algebraic 
volt       e,. 


B(31,I)     instantaneous  three-phase  power 
or  "average  three-phase  power" 

B(32,I)     "peak  reactive  power  per  phase" 

B(33,I)     electromagnetic  torque 

B(34,I)     instantaneous  flux  linkages  of 
field  winding 

B(35,I)     instantaneous  value  of  equiva- 
lent field  saturation  current 

B(36,I)     derivative  of  i  with  respect 
to  X^ 

B(37,I)     uMafsin0 


KW 

P,  P 

KVA 

Q 

ft -lb 

Tr 

volt -sec 

A^ 

amp 

amp/volt-sec 
ohm 


70 

Fortran  Description  Units    Algebraic 

B(38,I)     uMafsin(0  -  y-)  ohm 

B(39,l)     uMafsin(0  ♦  £L) 

B(40,I)     output  voltage  of  three-phase, 

full -wave  rectifier  in  terminal - 
voltage  feedback  loop  of 
regulator 


ohm 


B(41,I) 

field  forcing  current  of  excite 

B(42,I) 

instantaneous  field  voltage 

B(43,I) 
to 

not  used 

B(48,I) 

B(49,I) 

COS0 

B(50,I) 

sin0 

B(51,I) 

COS(0  ♦  y) 

B(52,I) 

sirt(0  *  y-) 

B(53,I) 

rr.       2tk 
cos(0  -  y-j 

B(54,I) 

sin(0  -  y) 

B{55,I) 

cos20 

B(56,I) 

sin20 

B(57,I) 

cos  (20  +  y-) 

B(58,I) 

sin  (20  ♦  y-) 

B(59,I) 

cos  (20  -  y-) 

B(60,I) 

sin  (20  -  y-) 

Buses 

of  MG  Sets 

B(61,I) 

instantaneous  three-phase  power 
or  "average  three-phase  power" 
of  load 

B(62,I) 

"peak  reactive  power  per  phase" 
of  load 

volt 

©l 

amp 

*ff 

volt 

e£ 

KW         p,  P 
KVA         Q 
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Description 


Units    Algebraic 


B(63,I) 

consecutive  d: 
to  B(70,I) 

Lsplay  of  B(65,I) 

B(64,I) 

consecutive  display  of  B(71,I) 
to  B(73,I) 

B(65,I) 

percent  error 
of  B(77,I) 

of  positive  peak 

B(66,I) 

percent  error 
of  B(77,I) 

of  negative  peak 

B(67,I) 

percent  error 
of  B(78,I) 

of  positive  peak 

B(68,I) 

percent  error 
of  B(78,I) 

of  negative  peak 

B(69,I) 

percent  error 
of  B(79,I) 

of  positive  peak 

B(70,I) 

percent  error 
of  B(79,I) 

of  negative  peak 

B(71,I) 

percent  error 
B(77,I) 

of  frequency  of 

B(72,I) 

percent  error 
B(78,I) 

of  frequency  of 

B(73,I) 

percent  error 
B(79,I) 

of  frequency  of 

B(74,I) 

instantaneous 
ground  of  pha: 

voltage  drop  to 
»e  a 

volt 

va 

B(75,I) 

instantaneous  voltage  drop  to 
ground  of  phase  b 

volt 

vb 

B(76,I) 

instantaneous  voltage  drop  to 
ground  of  phase  c 

volt 

vc 

B(77,I) 

instantaneous 

line-a-to-line-b 

voltage 

volt 

vab 

B(78,I) 

instantaneous 

line-b-to-line-c 

voltage 

volt 

vbc 

B(79,I) 

instantaneous 

line-c-to-line-a 

voltage 


volt 


ca 
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Description 

Units 

Algebraic 

B(80,I) 

instantaneous  value  of  resist- 
ance of  phase  a  of  load 

ohm 

Ria 

B(81,I) 

instantaneous  value  of  resist- 
ance of  phase  b  of  load 

ohm 

Rib 

B(82,I) 

instantaneous  value  of  resist- 
ance of  phase  c  of  load 

ohm 

Ric 

B(83,I) 

instantaneous  value  of  induct- 
ance of  phase  a  of  load 

henry 

Lia 

B(84,I) 

instantaneous  value  of  induct- 
ance of  phase  b  of  load 

henry 

Lib 

B(85,I) 

instantaneous  value  of  induct- 
ance of  phase  c  of  load 

henry 

L! 

tc 

B(86,I) 

instantaneous  current  of  phase  a 
of  load 

amp 

lu 

B(87,I) 

instantaneous  current  of  phase  b 
of  load 

amp 

Hb 

B(88,I) 

instantaneous  current  of  phase  c 
of  load 

amp 

llc 

B(89,I) 

time  derivative  of  B(86,I) 

amp/sec 

B(90,I) 

time  derivative  of  B(87,I) 

amp/sec 

B(91,I) 

time  derivative  of  B(88,I) 

amp/ sec 

B(92,I) 

used  as  switch  by  DISC0N  in  con- 

junction  with  backstepping  to 
integrate  to  zero  phase -a -current 
when  generator  is  being  removed 
from  bus 

B(93,I)     same  as  B(92,I)  but  for  phase-b- 
current 

B(94,I)     same  as  B(92,I)  but  for  phase -c- 
current 

B(95,l)     used  as  switch  set  by  DISC0N  if 
B(95,I)  is  greater  than  zero, 
phase  a  of  generator  has  been 
disconnected  from  bus 

B(96,I)     same  as  B(95,I)  but  for  phase  b 


Fortran  Description 

B(97,I)     same  as  B(95,I)  but  for  phase  c 

B(98,I)     set  equal  to  I  when  generator  is 
disconnected  from  bus 

B(99,l)     used  by  VMAXGB  as  initializing 
switch 


Induction  Motors 


B(1,I) 

B(2,I) 

B(3,I) 

B(4,I) 

B(5,I) 

B(6,I) 

B(7,I) 

B(8,I) 

B(9,I) 

to 
B(11,I) 

B(12,I 

B(13,I 
to 
B(18,I 

B(19,I 

B(20,I 

B(21,I 

B(22,I) 
B(23,I 

.1 


instantaneous  three-phase  power 
or  "average  three-phase  power" 

"peak  reactive  power  per  phase" 

electromagnetic  torque 

percent  rotor  slip 

electrical  speed  of  rotor 

not  used 

set  equal  to  zero 

not  used 

set  equal  to  zero 

mechanical  torque 

not  used 

cosG 

sinO 

cos(0  +  yL) 
sin(0  *  y-) 
cos(9  -  y-) 


Units 


rad/sec 


ft-lb 


73 
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KW         p,  P 
KVA        Q 
ft-lb       !„ 


OJ 


sin(0 


2tt 


) 
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Fortran  Description  Units    Algebraic 

B(25,I) 

to      not  used 
B(99,I) 

Distribution  Transformers 

B(1,I)      instantaneous  current  to  phase  a 
of  main  bus 

B(2,I)      instantaneous  current  to  phase  b 
of  main  bus 

B(3,I)      instantaneous  current  to  phase  c 
of  main  bus 

B(4,I)      instantaneous  phase -A -to -ground 
voltage  drop  of  secondary 

B(5,I)      instantaneous  phase -B-to -ground 
voltage  drop  of  secondary 

B(6,I)      instantaneous  phase -C -to -ground 
voltage  drop  of  secondary 

B(7,I)      instantaneous  line-A-to-line-B 
voltage  drop  of  secondary 

B(8,I)      instantaneous  line-B-to-line-C 
voltage  drop  of  secondary 

B(9,I)      instantaneous  line-C-to-line-A 
voltage  drop  of  secondary 

B(10,I)     instantaneous  three-phase  power 
or  "average  three-phase  power" 
of  load 

B(11,I)     "peak  reactive  power  per  phase" 
of  load 

B(12,I)     consecutive  display  of  B(14,I) 
to  BQ9,I) 

B(13,I)     consecutive  display  of  B(20,I) 
to  B(22,I) 

B(14,I)     percent  error  of  positive  peak 
of  B(7,I) 

B(15,I)     percent  error  of  negative  peak 
of  B(7,I) 


amp 

\ 

amp 

\ 

amp 

\ 

volt 

VA 

volt 

VB 

volt 

VC 

volt 

VAB 

volt 

VBC 

volt 

VCA 

KW 

P,  P 

KVA 

Q 
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Description 


Units    Algebraic 


B(16,I) 

percent  error 
of  B(8,I) 

of  positive  peak 

B(17,I) 

percent  error 
of  B(8,I) 

of  negative  peak 

B(18,I) 

percent  error 
of  B(9,I) 

of  positive  peak 

B(19,I) 

percent  error 
of  B(9,I) 

of  negative  peak 

B(20,I) 

percent  error 
B(7,I) 

of  frequency  of 

B(21,I) 

percent  error 
B(8,I) 

of  frequency  of 

B(22,I) 

percent  error 
B(9,I) 

of  frequency  of 

B(23,I) 

to 
B(30,I) 

not  used 

B(31,I) 

instantaneous  value  of  resist- 
ance of  phase  A  of  load 

ohm 

"lA 

B(32,I) 

instantaneous 
ance  of  phase 

value  of  resist - 
B  of  load 

ohm 

"^B 

B(33,I) 

instantaneous  value  of  resist- 
ance of  phase  C  of  load 

ohm 

*!£ 

B(34,I) 

instantaneous  value  of  induct- 
ance of  phase  A  of  load 

henry 

hA 

B(35,I) 

instantaneous  value  of  induct- 
ance of  phase  B  of  load 

henry 

hs 

B(36,I) 

instantaneous  value  of  induct- 
ance of  phase  C  of  load 

henry 

ht 

B(37,I) 
B(38,I) 

not  used 
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B(39,I) 

to       coefficients  as  indicated  below 


B(50,I) 


diA  di£a  dilb  dilc 

j^-  B(39,I)  ♦  B(40,I)  j^*  B(41,I)  ^  +  B(42,I)  ^- 


d^n  ^o  d^oK  d*o 

^  =  B(43,I)  *  B(44,I)  ^  ♦  B(45,I)  j^-  *  B(46,I)  ^ 


diC  di£a         di*b         diac 

^1=  B(47,I)  *  B(48,I)  ^±  +  B(49,I)  ^  ♦  B(50,I)  ^ 


B(S1,I) 

to       not  used 
B(99,I) 


77 
C  Array  (in  COMMON,  Dimension:  50) 
Fortran  Description  Units    Algebraic 


C(i) 

specified  integrating  time  step 

sec 

C(2) 

rated  maximum  line -to -line 
voltage  of  main  bus 

volt 

C(3) 

nominal  resistance  of  phase  a  of 
RL  load  of  main  bus 

ohm 

la 

C(4) 

nominal  resistance  of  phase  b  of 
RL  load  of  main  bus 

ohm 

hb 

C(5) 

nominal  resistance  of  phase  c  of 
RL  load  of  main  bus 

ohm 

R«c 

C(6) 

nominal  inductance  of  phase  a  of 
RL  load  of  main  bus 

henry 

L*a 

C(7) 

nominal  inductance  of  phase  b  of 
RL  load  of  main  bus 

henry 

L*b 

C(8) 

nominal  inductance  of  phase  c  of 
RL  load  of  main  bus 

henry 

L*c 

C(9) 

time  of  commencement  of  fault  on 
main  bus 

sec 

C(10) 

time  of  termination  of  fault  on 
main  bus 

sec 

C(H) 

time  of  commencement  of  step 
change  in  RL  load  of  main  bus 

sec 

C(12) 

fractional  step  change  of  RL 
load  of  main  bus 

C(13) 

time  of  commencement  of  sinusoi- 
dal variation  of  RL  load  of  main 
bus 

sec 

C(14) 

angular  frequency  of  sinusoidal 
variation  of  RL  load  of  main  bus 

rad/sec 

C(iS) 

fractional  amplitude  of  sinusoi- 
dal variation  of  RL  load  of  main 
bus 

C(16) 
to 
C(34) 

not  used 
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C(35)       equivalent  leakage -inductance  of 
commercial  power  interconnection 
transformer  referred  to  Y- 
connected  secondary  henry      L  ? 

C(36)       equivalent  winding -resistance  of 
commercial  power  interconnection 
transformer  referred  to  Y- 
connected  secondary  ohm        R  ~ 

CC37)      per-line  inductance  of  overhead 
transmission  line  in  commercial 
power  system,  referred  to  Y- 
connected  secondary  of  inter- 
connection transformer  henry      L-.~ 

C(38)      per-line  resistance  of  overhead 
transmission  line  in  commercial 
power  system,  referred  to  Y- 
connected  secondary  of  inter- 
connection transformer  ohm        R^ 

C(39)      per -phase  inductance  of  power 
source  in  commercial  power 
system,  referred  to  Y-connected 
secondary  of  interconnection 
transformer  henry      L.]? 

per-phase  resistance  of  power 

source  in  commercial  power 

system,  referred  to  Y-connected 

secondary  of  interconnection 

transformer  ohm 


C(41)      maximum  amplitude  of  phase  volt- 
ages of  power  source  in  commer- 
cial power  system,  referred  to 
Y-connected  secondary  of  inter- 
connection transformer  volt 

C(42)      phase  angle,  at  time  zero,  of 

phase -A'  voltage  of  power  source 

in  commercial  power  system  rad 

C(43)       time  of  commencement  of  step 
change  in  amplitude  of  phase 
voltages  of  power  source  in 
commercial  power  system  sec 

C(44)       fractional  step  change  in  ampli- 
tude of  phase  voltages  of  power 
source  in  commercial  power  system 


^2 


^V7 
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C(45)       time  of  termination  of  step 
change  in  amplitude  of  phase 
voltages  of  power  source  in 
commercial  power  system  sec 

C(46)       time  of  removing  commercial 

power  system  from  main  bus  sec 

C(47)  time  of  commencement  of  fault  at 
primary  side  of  commercial  power 
interconnection  transformer         sec 

C(48)       time  of  termination  of  fault  at 
primary  side  of  commercial  power 
interconnection  transformer         sec 

C(49) 

5        not  used 
C(50) 
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D  Array  (in  CONMON,  Dimension:  120) 


Fortran 

Description 

Units 

D(l) 

consecutive  display  of  D(7)  to 
D(12) 

D(2) 

consecutive  display  of  D(13)  to 
D(15) 

D(3) 

instantaneous  three-phase  power 
or  "average  three-phase  power" 
of  load  of  main  bus 

KW 

D(4) 

"peak  reactive  power  per  phase" 
of  load  of  main  bus 

KVA 

D(5) 

instantaneous  three-phase  power 
or  "average  three-phase  power" 
of  commercial  power  system 

KW 

D(6) 

"peak  reactive  power  per  phase" 
of  commercial  power  system 

KVA 

D(7) 

percent  error  of  positive  peak 
of  D(38) 

D(8) 

percent  error  of  negative  peak 
of  D(38) 

D(9) 

percent  error  of  positive  peak 
of  D(39) 

D(10) 

percent  error  of  negative  peak 
of  D(39) 

D(ll) 

percent  error  of  positive  peak 
of  D(40) 

D(12) 

percent  error  of  negative  peak 
of  D(40) 

D(13) 

percent  error  of  frequency  of 
D(38) 

D(14) 

percent  error  of  frequency  of 
D(39) 

D(15) 

percent  error  of  frequency  of 
D(40) 

D(16) 

instantaneous  resistance  of 

Algebraic 


P,  P 
Q 

P,  P 
Q 


phase  a  of  RL  load  of  main  bus       ohm        R 


la. 


Fortran  Description 

D(17)       instantaneous  resistance  of 

phase  b  of  RL  load  of  main  bus 

D(18)       instantaneous  resistance  of 

phase  c  of  RL  load  of  main  bus 

D(19)       instantaneous  inductance  of 

phase  a  of  RL  load  of  main  bus 

D(20)       instantaneous  inductance  of 

phase  b  of  RL  load  of  main  bus 

D(21)       instantaneous  inductance  of 

phase  c  of  RL  load  of  main  bus 

D(22)       instantaneous  current  of  phase  a 
of  RL  load  of  main  bus 

D(23)       instantaneous  current  of  phase  b 
of  RL  load  of  main  bus 

D(24)       instantaneous  current  of  phase  c 
of  RL  load  of  main  bus 

D(25)       time  derivative  of  D(22) 

D(26)       time  derivative  of  D(23) 

D(27)       time  derivative  of  D (24) 

D(28)       instantaneous  phase -a  current  of 

total  load  of  main  bus  amp 

D(29)       instantaneous  phase -b  current  of 

total  load  of  main  bus  amp 

D(30)       instantaneous  phase -c  current  of 

total  load  of  main  bus  amp 

D(31)       actual  integrating  time  step         sec 

D(32) 

to       not  used 
D(34) 

D(35)       instantaneous  phase -a -to -ground 

voltage  drop  of  main  bus  volt       v 

D(36)       instantaneous  phase -b -to -ground 

voltage  drop  of  main  bus  volt       v. 
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Units 

Algebraic 

ohm 

Rib 

ohm 

Ric 

henry 

Lia 

henry 

Lib 

henry 

Lic 

amp 

*&. 

amp 

Hb 

amp 

ijc 

amp/ sec 

amp/sec 

amp/sec 

Fortran  Description 

D(37)       instantaneous  phase -c -to -ground 
voltage  drop  of  main  bus 

D(38)       instantaneous  line-a-to-line-b 
voltage  of  main  bus 

D(39)       instantaneous  line-b-to-line-c 
voltage  of  main  bus 

D(40)       instantaneous  line-c-to-line-a 
voltage  of  main  bus 

D(41) 

to       not  used 
D(78) 

D(79)  the  expression  amp/ sec 

(Rr  ♦  *,)  iia  ♦  RJaifc,  .   (Ria  *  Rr  +  R'l)  \a  -  (*r  ♦  «'i)  i|, 
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Units 

Algebraic 

volt 

V 

c 

volt 

vab 

volt 

vbc 

volt 

vca 

M     +  L     ♦  L,  M     ♦  L     +  Lf2 

r        r        l  r        r  z 


divided  by  the  expression 

M  M 

1  -  1 L 


M  ♦  L  *   L,   M  ♦  L  ♦  LS 
r   r    *    r   r    z 

D(80)       same  as  D(79)  with  subscript  a 
replaced  by  subscript  b 

D(81)       same  as  D(79)  with  subscript  a 
replaced  by  subscript  c 

D(82)       (2Mr  ♦  2Lr  ♦  U   ♦  L'2)/[(Lr  ♦  Li) 

(L  ♦  L'2)  -  M  2]  henry"1 

D(83) 

to       not  used 
D(95) 

D(96)       instantaneous  voltage  of  phase  A' 
of  power  source  in  commercial 
power  system,  referred  to  Y- 
connected  secondary  of  intercon- 
nection transformer  volt       e.,^ 

D(97)       same  as  D(96)  but  for  phase  B'       volt       eB,2 
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Description 

Units 

Algebraic 

D(98) 

same  as  D(96)  but  for  phase  C 

volt 

eC»2 

D(99) 

not  used 

D(100) 

to 
D(lll) 

coefficients,  pertaining  to 
commercial  power  system,  as 
indicated  below 

^  =  D(100)  ♦  D(101)  ^  *  D(102)  ^  ♦  D(103)  ^ 

dib  di*a         dilb  dilc 

^  -  D(104)  +  D(105)  ^  *   D(106)  ^  *   D(107)  ^ 

dic  di*a        di*b        dilc 

^  -  D(108)  *  D(109)  ^  ♦  D(110)  ^  ♦  D(lll)  ^ 


D(112) 

to 
D(120) 


not  used 
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Fortran 

Description 

Units 

Algebraic 

G(1,I) 

time  two  integrating  time  steps 
back 

sec 

G(2,I) 

time  one  integrating  time  step 
back 

sec 

G(3,X) 

present  time 

sec 

t 

G(4,I) 

value  of  B(7,I) 
transformers  at 

for  distribution 
time  G(1,I) 

volt 

G(5,I) 

value  of  B(7,I) 
transformers  at 

for  distribution 
time  G(2,I) 

volt 

G(6,I) 

value  of  B(7,I) 
transformers  at 

for  distribution 
time  G(3,I) 

volt 

VAB 

G(7,I) 

value  of  B(8,I) 
transformers  at 

for  distribution 
time  G(1,I) 

volt 

G(8,I) 

value  of  B(8,I) 
transformers  at 

for  distribution 
time  G(2,I) 

volt 

G(9,I) 

value  of  B(8,I) 
transformers  at 

for  distribution 
time  G(3,I) 

volt 

VBC 

G(10,I) 

value  of  B(9,I) 
transformers  at 

for  distribution 
time  G(1,I) 

volt 

G(11,I) 

value  of  B(9,I) 
transformers  at 

for  distribution 
time  G(2,I) 

volt 

G(12,I) 

value  of  B(9,I) 
transformers  at 

for  distribution 
time  G(3,I) 

volt 

VCA 

G(13,I) 

time  of  most  recent  zero -crossing 

of  B(7,I)  for  distribution 

transformers  sec 

G(14,I)     time  of  most  recent  zero-crossing 
of  B(8,l)  for  distribution 
transformers  sec 

G(15,I)     time  of  most  recent  zero -crossing 
of  B(9,I)  for  distribution 
transformers  sec 

G(16,I)     used  by  VMAXTR  as  switch  in  com- 
putation of  peaks  of  B(7,I)  for 
distribution  transformers 
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G(17,I)     same  as  G(16,I)  but  for  B(8,I) 
for  distribution  transformers 

G(18,I)     same  as  G(16,I)  but  for  B(9,I) 
for  distribution  transformers 

G(19,I)     used  by  VMAXTR  as  switch  to  skip 
computation  of  peaks  and  of  fre- 
quency of  B(7,I)  for  distribution 
transformers  during  a  two -phase 
(A  and  B)  or  a  three-phase  (A,  B 
and  C)  or  a  line-to-line  (A  to  B) 
fault  on  secondary  of  distribu- 
tion transformers 

G(20,I)     used  by  VMAXTR  as  switch  to  skip 
computation  of  peaks  and  of  fre- 
quency of  B(8,I)  for  distribution 
transformers  during  a  three-phase 
(A,  B  and  C)  fault  on  secondary 
of  distribution  transformers 

G(21,I)     same  as  G(20,I)  but  for  B(9,I) 
for  distribution  transformers 
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L  Array  (in  COMMON,  Dimension:  134) 

Fortran  Description  Units    Algebraic 

L(l)  number  of  generating  units 

L(2)  number  of  motor -generator  sets 

L(3)  number  of  induction  motors 


L(4)       number  of  distribution 
transformers 

L(5)        if  L(5)  0,  the  commercial  power 
system  is  connected  to  the  power 
plant;  otherwise,  it  is  not 

L(6)        not  used 

L(7)       describe  type  of  fault  on  main  bus 
<1,  no  fault 

■1,  single  phase  (a)  fault 
«2,  two-phase  (a  and  b)  fault 
*3,  three-phase  (a,  b  and  c)  fault 
*4,  line-to-line  (a  to  b)  fault 

L(8)        describe  type  of  fault  at 

primary  side  of  commercial  power 
interconnection  transformer 

L(9)        frequency  of  output  from  PRINT? 
in  terms  of  integrating  steps 

L(10)       frequency  of  output  from  PL0T2 
in  terms  of  integrating  steps 

L(ll)       used  by  SAT  and  SATEF  for  field 

to       saturation  effects  of  synchronous 
L(25)       machines  connected  to  main  bus 
■1,  corresponding  machine  is  not 

saturated 
»2,  corresponding  machine  is 
saturated 


L(26) 
to 
L(30) 

not  used 

L(31) 

total  number  of  dependent 
variables 

L(32) 

used  by  SUB2  as  switch  to  call 
INITIA 
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L(33)       used  as  switch  to  bypass  YPRIM2; 
switch  is  set  in  SUB2 

L(34)       used  as  switch  for  calling 
PRINT2  from  SUB2 

L(35)       used  as  switch  for  calling  PL0T2 
from  SUB2 

L(36)       used  as  switch  in  SUB2  to  back- 
step  and  integrate  to  zero 
current  if  necessary,  when  a 
component  is  being  removed  from 
main  bus  or  a  generator  from  the 
buses  of  the  MG  sets:  switch  is 
set  in  SWITCH  and  DISC0N 

L(37)       used  as  switch  in  SWITCH  in  con- 
junction with  backstepping  to 
integrate  to  zero  phase -a -current 
when  a  component  is  being  removed 
from  the  main  bus 

L(38)       same  as  L(37)  but  for  phase -b- 
current 

L(39)       same  as  L(37)  but  for  phase -c- 
current 

L(40)       used  as  switch  set  by  SWITCH:  if 
L(40)  is  greater  than  zero,  phase 
a  of  component  being  removed  from 
main  bus  has  been  disconnected 
from  main  bus 

L(41)       same  as  L(40)  but  for  phase  b 

L(42)       same  as  L(40)  but  for  phase  c 

L(43)       identifies  component  being 
removed  from  main  bus 

L(44)       number  of  records  written  by 
PL0T2 

L(45)       number  of  words  per  record 
written  by  PL0T2 

L(46)       used  by  VMAX  as  initializing 
switch 
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Fortran 
L(47) 
Li 
L(49) 

L(50) 


L(51) 
to 
L(86) 

L(87) 
to 
L(95) 

L(96) 
to 
L(99) 

L(100) 

to 
L(134) 


Description 

not  used 

not  used 

number  of  input  data  cards  with 
instructions  for  PL0T2 

number  of  input  data  cards  with 
instructions  for  PRINT2 

specify  first  entry  in  Y  Array 
of  dependent  variables  of  each 
component 

used  by  SATG  and  SATEFG  for 
field  saturation  effects  of  gen- 
erators of  MG  sets 


not  used 


specify  type  of  components 

=1,  for  generating  units 

=2,  for  motor -generator  sets 

*3,  for  induction  motors 

-4,  for  distribution  transformers 


Units    Algebraic 
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Y  Array  (in  COMMON,  Dimension:  316) 


Generators  of  Generating  Units 

Fortran 

Description 

Units 

Algebraic 

Y(J) 

instantaneous  current  of  phase -a 
stator  winding 

amp 

\ 

Y(J+1) 

instantaneous  current  of  phase -b 
stator  winding 

amp 

• 

Y(J+2) 

instantaneous  current  of  phase -c 
stator  winding 

amp 

i 
c 

Y(J+3) 

instantaneous  current  of  field 
winding 

amp 

*f 

Y(J+4) 

current  of  direct  amortisseur 
winding 

amp 

ld 

Y(J*5) 

current  of  quadrature  amortisseur 
winding 

amp 

\ 

Y(J*6) 

electrical  angle  of  axis  of  field 

winding  with  respect  to  axis  of 
phase -a  stator  winding,  measured 
in  direction  of  rotor's  rotation 

Y(J+7)      output  voltage  of  regulator 
amplifier 

Y(J*8)      time  integral,  from  time  0  to 
time  t,  of  output  voltage  of 
feedback  network  in  regulator 

Y(J+9)      output  voltage  of  quadratic 

filter  in  terminal -voltage  feed- 
back loop  of  regulator 

Y(J*10)     time  derivative  of  Y(J*9) 


rad 

9 

volt 

e3 

volt -sec 

e' 

volt 

e2 

volt/sec 

e' 

Motor -Generator  Sets 


Motors 


Y(J)       instantaneous  current  of  phase -a 
stator  winding 


amp 


Y(J+D 


instantaneous  current  of  phase -b 
stator  winding 


amp 
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Description 

Units 

Algebraic 

Y(J*2) 

instantaneous  current  of  phase -c 
stator  winding 

amp 

i 
c 

Y(J«-3) 

instantaneous  current  of  field 
winding 

amp 

*f 

Y(J*4) 

current  of  direct  amort isseur 
winding 

amp 

*d 

Y(J*5) 

current  of  quadrature  amort isseur 
winding 

amp 

i 

q 

Y(J+6) 

electrical  angle  of  axis  of  field 

winding  with  respect  to  axis  of 

phase -a  stator  winding,  measured 

in  direction  of  rotor's  rotation  rad        0 

Y(J«7)      mechanical  speed  of  rotor  rad/ sec      u) 


Generators 

Y(J*8) 

instantaneous  current  of  phase -a 
stator  winding 

amp 

\ 

Y(J+9) 

instantaneous  current  of  phase -b 
stator  winding 

amp 

*b 

Y(J+10) 

instantaneous  current  of  phase -c 
stator  winding 

amp 

\ 

Y(J+11) 

instantaneous  current  of  field 
winding 

amp 

^ 

Y(J+12) 

current  of  direct  amortisseur 
winding 

amp 

ld 

Y(J*13) 

current  of  quadrature  amortisseur 
winding 

amp 

\ 

Y(J*14) 

electrical  angle  of  axis  of  field 

winding  with  respect  to  axis  of 
phase -a  stator  winding,  measured 


in  direction  of  rotor's  rotation 

rad 

0 

Y(J+15) 

output  voltage  of  regulator 
amplifier 

volt 

e3 

Y(J+16) 

time  integral,  from  time  0  to 
time  t,  of  output  voltage  of 
feedback  network  in  regulator 

volt -sec 

e>4 
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Y(J*17)     output  voltage  from  quadratic 

filter  in  terminal -voltage  feed- 
back loop  of  regulator  volt       e2 

Y(J*18)     time  derivative  of  Y(J*17)         volt/sec     e'2 


Induction  Motors 

4 

Y(J) 

instantaneous  current  of  phase -a 
stator  winding 

amp 

\ 

Y(J*1) 

instantaneous  current  of  phase -b 
stator  winding 

amp 

H> 

Y(J*2) 

instantaneous  current  of  phase -c 
stator  winding 

amp 

*c 

Y(J*3) 

instantaneous  current  of  a  rotor 
winding 

amp 

\ 

Y(J*4) 

instantaneous  current  of  3  rotor 
winding 

amp 

lB 

Y(J*5) 

electrical  angle  of  axis  of  a 

rotor  winding  with  respect  to 

axis  of  phase -a  stator  winding, 

measured  in  direction  of  rotor's 

rotation  rad        0 

Y(J*6)      mechanical  speed  of  rotor  rad/ sec      to 

Distribution  Transformers 

Y(J)        instantaneous  current  of  phase -A 
secondary  winding 

Y(J*1)      instantaneous  current  of  phase -B 
secondary  winding 

Y(J+2)      instantaneous  current  of  phase-C 
secondary  winding 


Commercial  Power  System 

Y(J)        instantaneous  current  to  phase  a 

of  main  bus  amp        i 


m 


amp 

XA 

amp 

*B 

amp 

*C 

a 


Y(J*1)      instantaneous  current  to  phase  b 

of  main  bus  amp        i. 
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Y(J«-2)      instantaneous  current  to  phase  c 

of  main  bus  amp        i 


c 
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APPENDIX  C 
FORTRAN  LISTING  OF  MAIN  SPEED  AND  MAIN  TORQUE  AND  SUB2  PROGRAMS 

(pages  94  to  176) 


94 

SUBROUTINE  SPEEO 

C      MAIN  PROGRAM  WITH  CONSTANT  SPEED  MOOELS  FOR  PRIME  MOVERS  OF  GENE-  S  0001 

C      RATING  UNITS.  S  0002 

COMMON  DSUB2  S  0003 
DIMENSION  DSUB2C13271)                                               S  0004 

DIMENSION  SP(10)«TOR(10)»XLOAD(10)  .TITLEU3)  S  0005 

995  FORMAT (15)  S  0006 

996  FORMAT (13A6)  S  0007 

997  FORMAT (1H1.47HINPUT  DATA  FOR  PRIME  MOVERS  OF  GENERATING  UNITS//1H  S  0008 
1*13A6)  S  0009 

998  FORMAT(2E10.3)  S  0010 

999  FORMAT ( 1H0.6HSPEED*,F8.4/1H  tl6HDURATI0N  OF  RUN».F8.4,4H  SEC)        S  0011 
READ«5,995)   N  S  0012 

2  READ  <5t996)  TITLE  S  0013 

WRITE  (6.997)  TITLE  S  0014 

READ(5»998)  XT.SPE  S  0015 

WRITE(6t999)  SPE.XT  S  0016 

CALL  INPUT2  S  0017 

DO   1   1=1.10  S  0018 

1  SP(I)»SPE  S  0019 

X  =  0.0  S  0020 

CALL  SUB2(X.SP.T0R»XL0A0»FR.NT)  S  0021 

S  0022 
S  0023 
S  0024 
S  0025 
S  0026 
S  0027 
S  0028 
S  0029 
S  0030 
S  0031 


CALL 

PRINT2 

X»XT 

CALL 

SUB2(X. 

SP, 

.TORi 

>XLOADi 

»FR, 

.NT) 

CALL 

PRINT2 

CALL 

PRINTO 

CALL 

TAPE2 

N»N-1 

I 

IF(N>3.3.2 

CALL 

EXIT 

END 
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SUBROUTINE  TORQUE 
C      MAIN  PROGRAM  WITH  CONSTANT  TORQUE  MODELS  FOR  PRIME  MOVERS  OF  GENE- 
C      RATING  UNITS. 

C      SUBROUTINES  RNGKTA  AND  YPRIME  INTEGRATE  THE  EQUATIONS  OF  MOTION  OF 
C      THE  SHAFTS  OF  THE  GENERATING  UNITS  USING  CONSTANT  MECHANICAL  TOR- 
C      QUE.  THE  DEPENDENT  VARIABLES  ARE  THE  SHAFT  SPEEDS. 

COMMON  DSUB2 

DIMENSION  DSUB2U3271)  1 

COMMON  X,Y,F»Q»A,B,C»L 

DIMENSION  Y(10),F(10)»Q<10>,A(10),B(20),C<2)»L(2> 

DIMENSION  SP(10) .TOR < 10 ) tXLOAD ( 10) .TITLE (13) 

100  F0RMAT(I5) 

101  F0RMAT(13A6) 

102  FORMAT(I5,2E10.4) 

103  F0RMATOE10.4) 

104  FORMAT  (1H1,47HINPUT  DATA  FOR  PRIME  MOVERS  OF  GENERATING  UNITS//1H 
1  tl3A6) 

105  FORMAT(1HO»7X,5HSPEED»10X,6HTORQUE»10X,7HINERTIA/) 

106  FORMAT(3(3X,E13.6> > 

107  FORMATUH0.17HINTEGRATING  STEP=,F7.4,4H  SEC/1H  ♦16HDURATI0N  OF  RUN 
1=,F8.4,4H  SEC) 

READ  (5.100)  N 

1  READ  (5,101)  TITLE 
WRITE  (6,104)  TITLE 

READ  (5,102)  L(l) ,C(1),C(2) 

L1=L<1> 

DO  2  1=1, LI 

2  READ  (5,103)  Y ( I ) ,B ( I ) , A ( I ) 
WRITE  (6,105) 

DO  3  1=1, LI 

3  WRITE  (6,106)  Y ( I ) ,B ( I ) , A ( I ) 
WRITE  (6,107)  C(1),C(2) 
CALL  INPUT2 

DO  4  1=1, LI 

4  SP(I)=Y(I) 
X=0.0 
L(2)=0 

CALL  SUB2(X,SP,T0R,XL0AD,FR,NT) 

L(1)=NT 

CALL  PRINT2 

5  IF(X-C(2))  6,10,10 

6  IF(X-C(2)*C(1) )  ft, 7, 7 

7  C(1)=C(2)-X 
IDX=2 

GO  TO  9 

8  IDX=1 

9  CALL  RNGKTA 

GO  TO  (5,10), IDX 

10  L1=L(1) 

DO  11  1=1, LI 

11  SP(I)=Y(I) 

CALL  SUB2(X,SP,TOR,XLOAD,FR,NT) 

CALL  PRINT2 

CALL  PRINTO 

CALL  TAPE2 

N=N-1 

IF(N)  12,12,1 

12  CALL  EXIT 
END 


T 

0001 

T 

000? 

T 

0003 

T 

0004 

T 

0005 

T 

0006 

0007 

T 

0008 

T 

0009 

T 

0010 

T 

0011 

T 

0012 

T 

0013 

T 

0014 

T 

0015 

T 

0016 

T 

0017 
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SUBROUTINE  RNGKTA 

R 

0000 

c 

INTEGRATION  SCHEME  FOR 

SHAFT 

SPEEDS  OF 

GENERATING  UNITS—GILL 

PRO-   R 

0001 

c 

CEDURE  OF  THE  FOURTH  ORDER  RUNGE- 

KUTTA 

METHOD. 

R 

0002 

COMMON  DSUB2 

R 

0003 

DIMENSION  DSUB2 (13271) 

R  0004 

COMMON  X»Y»F,Q»A,B.C»L 

R 

0005 

DIMENSION  Y(10> .F(10> .0(10)  . 

A(10) 

,B(20) 

♦C(2)»L(2) 

R 

0006 

N=L(1) 

R 

0007 

IF(L(2)>  4.4,1 

R 

0008 

4 

L(2>=10 
DO  3  1  =  1, N 

R 
R 

0009 
0010 

3 

Q(I)=0.0 

R 

0011 

1 

H=C(1) 

HH=.5«H 

CALL  YPRIME 

DO  5  1*1. N 

S=F(I)»H 

T=.5»(S-2.*0(I) ) 

Y(I)*Y(I)*T 

R 
R 
R 
R 
R 
R 
R 

0012 
0013 
0014 
0015 
0016 
0017 
0018 

5 

Q(I)=Q(I)*3.»T-.5»S 

X=X»HH 

CALL  YPRIME 

DO  6  1=1. N 

S=F(I)*H 

T=,29289322«(S-Q(I) ) 

Y(I)=Y(I)*T 

R 
R 
R 
R 
R 
R 
R 

0019 
0020 
0021 
0022 
0023 
0024 
0025 

6 

Q(I)=Q(I)*3.«T  -.29289322«S 

R 

0026 

CALL  YPRIME 

R 

0027 

DO  7  1=1. N 

R 

0028 

S=F(I)»H 

R 

0029 

T=1.7071067»(S-Q(I)) 

R 

0030 

Y(I)=Y(I)*T 

R 

0031 

7 

Q(I)=Q(I)*3.»T-1. 707106 

X=X*HH 

CALL  YPRIME 

DO  8  I=1,N 

S=F(I)»H 

T=(S-2.»0(I) )/6. 

Y(I)=Y(I)*T 

»S 

R 
R 
R 
R 
R 
R 
R 

0032 
0033 
0034 
0035 
0036 
0037 
0038 

8 

Q(I)=Q(I)*3.»T-.5»S 

RETURN 

END 

R 
R 
R 

0039 
0040 
0041 
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SUBROUTINE  YPRIME  Y  0000 

EVALUATION  OF  DERIVATIVES  OF  SHAFT  SPEEDS  OF  GENERATING  UNITS.  Y  0001 

COMMON  DSUB2  Y  0002 
DIMENSION  DSUB2(1327l)                                               Y  0003 

COMMON  X»Y»F»Q.AtB»C»L  Y  0004 

DIMENSION  Y(10)  »F(10)  ♦QUO)  .A(10)  »B<20)  »C(2)  »L<2)  Y  0005 

DIMENSION  SP(10) tTOR(lO) .XLOAD(IO)  Y  0006 

L1=L(1)  Y  0007 

DO  10  1=1. LI  Y  0008 

10  SP(I)  =  Yd)  Y  0009 

CALL  SUB2(X»SP»T0R»XL0AD»FR,NT)  Y  0010 

L(1)=NT  Y  0011 

L1=L(1)  Y  0012 

DO  20  1=1. LI  Y  0013 

B(I*10)  =  TOR(I)  Y  0014 

20  F(I)=32.174»(B(I)-B(I*10) )/A(I)  Y  0015 

RETURN  Y  0016 

END  Y  0017 
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SUBROUTINE  SUB2 <XA,SP»TOR,XLOAD,FR,NS>  01  0000 

C  SUBROUTINES  SUB2, INPUT2»SETF,SETI ,PRINT2,PL0T2»TAPE2»PRINT0»  01  0001 
C  INITIA,RNGKT2«SWITCH,DISC0N,VMAX,VMAXGB,TRAN»VMAXTR. DUPLEX, VMAXDR,  01  0002 
C  YPRIM2,LMAT»IMAT»SAT»SATEF,RLMB,XLMAT»TRIAS»CDMACH»CDTRAN,CDC0MP,  01  0003 
C  CODR»MBSOLV,FMACH,FTRAN,FCOMP,FOR,FREG,YPRIMG»LMATG»IMATG,SATG,  01  0004 
C  SATEFG,RLGB,XMMAT,TRIAG,GBMAT,GBSOLV»FGEN,FREGG,FMECH  AND  TORIM  01  0005 
C      CONSTITUTE  A  SUBSYSTEM (SUB2)  OF  THE  OVERALL  POWER  PLANT.  01  0006 

C  THEY  HAVE  THE  SAME  COMMON,  EXCEPT  FOR  SETF  AND  SETI  WHICH  HAVE  NO  01  0007 
C      COMMON.  01  0008 

C  THEY  HANDLE  ALL  COMPONENTS  OF  THE  POWER  PLANT  EXCEPT  THE  PRIME  MO-  01  0009 
C      VERS  OF  THE  GENERATING  UNITS  AND  THEIR  FUEL  CONTROLS.  01  0010 

C  FOR  GIVEN  SHAFT  SPEEDS(SP)  OF  THE  GENERATING  UNITS*  INTEGRATE  THE  01  0011 
C      EQUATIONS  OF  SUB2  FROM  SUB2  TIME  X  TO  MAIN  TIME  XA.  01  0012 

C  AT  TIME  XA,  TRANSFER  TO  MAIN  THE  EM  TORQUES(TOR)  AND  THE  AVERAGE  01  0013 
C  THREE-PHASE  POWERS (LOAD)  OF  THE  GENERATING  UNITS,  AND  THE  FREQUEN-  01  0014 
C  CY(FR)  OF  THE  MAIN  BUS.  THE  NUMBER  OF  GENERATING  UNITS  CONNECTED  01  0015 
C      TO  THE  MAIN  BUS  AT  TIME  XA  IS  NS.  01  0016 

COMMON  A,B»B0,C,CD,D,EG,EP,F,G,GB,0,VV,W,X»XL,XM,Y,Z,L,LG1,LG2,LG3  01  0017 
1,LP1*LP2,LP3, TITLE, HEAD  01  0018 

DIMENSION  A (80,35) ,R(99,35) ,BO (8) ,C (50) ,CD( 3,4) ,D ( 120 ) ,EG(50) ,EP (501  0019 
10),F(316) ,G(21,35) ,GB < 3,4,9) ,Q (316) ,VV (21 ,9) ,W (6,6,9) ,XL(6,10,35) ,01  0020 
2XM(6,10,9),Y(316) ,Z(6,6,35) ,L ( 134) ,LG1 (50 ) ,LG2 (50 ) ,LG3 (50 ) ,LP1 (50 ) 01  0021 
3,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39)  01  0022 

DIMENSION  SP(10) ,TOR(10) ,XLOAD(10)  01  0023 

IF(L(32>)  2,1,2  01  0024 

1  CALL  INITIA  01  0025 
L(32)=10  01  0026 

2  NS=L(1>  01  0027 
NT=L(1)*L(2)*L<3>  01  0028 
IF(NS.LE.O)  GO  TO  401  01  0029 

C      TO  3—,  COMPUTE  THE  ELECTRICAL  SPEEDS  AND  THE  PERCENT  SPEED  ERRORS  01  0030 

C      OF  THE  GENERATING  UNITS.  01  0031 

DO  3  1=1, NS  01  0032 

B(5,I)=A(15,I)»SP(I)  01  0033 

3  B(4,I)  =  100. 0»(B(5,I)/377. 0-1.0)  01  0034 
401  11=1  01  0035 

4  IF(XA-X-0.001»C(1) )  32,32,5  01  0036 
C      TO  12—,  INTEGRATE.  01  0037 

5  IF(XA-X-Cd))  6,6,7  01  0038 

6  D(31)=XA-X  01  0039 
IDX=1  01  0040 
GO  TO  11  01  0041 

7  D(31)=C(1)  01  0042 
I0X=2  01  0043 

11  SW=0.0  01  0044 

12  CALL  RNGKT2  01  0045 
IF(SW.GT.O.O)  GO  TO  520  01  0046 

C      TO  520  —  ,  DISCONNECT  COMPONENTS  FROM  THE  MAIN  BUS.  01  0047 

IF(L(4) .LE.O)  GO  TO  510  01  0048 

N1=NT*1  01  0049 

N2=N1*L(4)-1  01  0050 

DO  500  I=N1,N2  01  0051 

J=L(I*50)  01  0052 

B(1,I)=(Y(J*2)-Y(J) )/A(3,I)  01  0053 

B(2,I)=(Y(J)-Y(J*1) )/A(3,I)  01  0054 

500  B(3,I)=(Y(J*1)-Y(J*2))/A(3,I)  01  0055 

510  CALL  SWITCH  01  0056 

ISX=L(36)  01  0057 

GO  TO  (520,12), ISX  01  0058 
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520  SW=10.0 
C      TO  530 — f  DISCONNECT  GENERATORS  FROM  THE  BUSES  OF  THE  MG  SETS. 

IF(L(2) .LE.O)  GO  TO  530 

CALL  OISCON 

ISX=L(36) 

GO  TO  (530.12) »ISX 
530  NT=L(1)*L<2)*L(3) 

NS=L(l) 

IF(NT.LE.O)  GO  TO  409 
C      TO  18 — *  CONVERT  THE  ELECTRICAL  ANGLES  OF  ROTATING  MACHINES  TO  AN- 
C      GLES  LESS  THAN  2PI  RADIANS. 

DO  18  I=1.NT 

LI=L(I*99> 

GO  TO  (14.13. 15). LI 

13  J=L(I*50>»14 

IF(Y(J) .GT. 6. 2831 85307)  Y (J) =Y (J) -6.283185307 

14  J=L(I*50)*6 
GO  TO  16 

15  J=L(I»50)*5 

If.  IF(Y<J).GT. 6. 283185307)  Y  (J)  =Y  (J) -6.283185307 

1R  CONTINUE 
C      TO  407 — ,  COMPUTE  THE  PERCENT  ERRORS  OF  THE  PEAKS  AND  FREQUENCIES 
C      OF  THE  LINE-TO-LINE  VOLTAGES  AT  VARIOUS  POINTS  OF  THE  POWER  PLANT. 

409  CALL  YPRIM2 
L(33)=10 
CALL  VMAX 

IF(L<2> .GT.O)  CALL  VMAXGB 

IF  (  L(4)  .LE.  0  )  GO  TO  408 

CALL  TRAN 

CALL  VMAXTR 
408  IF(L(6) .LE.O)  GO  TO  407 

CALL  DUPLEX 

CALL  VMAXDR 
407  IF(L(34))  21. 19.21 
C      TO  402 — .  OUTPUT  FROM  PRINT2. 

19  L(34)=L(9)-1 
IPP=1 

404  IF(NT.LE.O)  GO  TO  410 

C      TO  20  —  .  COMPUTE  THE  EM  TORQUES  OF  GENERATING  UNITS.  AND  THE  AVE- 
C      RAGE  3-PHASE  POWERS  AND  PEAK  REACTIVE  POWERS  PER  PHASE  OF  MOTORS. 

DO  20  1=1. NT 

J=L(I*50) 

J2=J*1 

J3=J2*1 

LI=L(I*99) 

GO  TO  (406.405.405) ,LI 

405  B(1,I)=-0.001*(D(35)»Y(J)*D(36)»Y(J2)»D(37)«Y(J3)) 

R ( 2 . I ) =- 1 . 9245E-4* ( Y  <  J  >  *D ( 39 ) ♦ Y ( J2 ) »D ( 40  > ♦ Y ( J3 ) »D ( 38  >  > 
GO  TO  20 

406  B(3,I)=(A(4.I)«(Y(J»3)-B(7.I) ) »A (5. I ) »Y ( J*4) ) ♦ < Y (J) *B (20. I ) »Y < J2> • 
1B(24.I)*Y(J3)»B(22.I) ) *A (6. I ) »Y ( J*5) »< Y ( J)»B ( 19. I ) »Y ( J2) «B (23. I ) »Y 
2(J3)»B(21.I) ) 

IF(A(3.I)>  103.103.101 
101  B(3.I)=B(3.I)-A(3.I)»(B(26.I)*(Y(J)»Y(J)»2.0*Y(J3)»Y(J2) )*B(28.I)» 
1(Y(J2)*Y(J2)»2.0»Y(J)*Y(J3) ) *B (30. I ) * ( Y ( J3> *Y ( J3) ♦2.0«Y ( J) «Y ( J2) ) ) 
103  B(3.I)=-0.737564«A(15.I)»B(3.I) 

20  CONTINUE 

410  GO  TO  (402.27.36) .IPP 
402  CALL  PRINT2 
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100 

IP=1  01  0118 

GO  TO  22  01  0119 

21  IP=2  01  0120 
L(34)=L(34>-1  01  0121 

22  IF  (X  -  0.017)  29,23*23  01  0122 

23  1F(L(35))  28,24,28  01  0123 
TO  27—,  OUTPUT  FROM  PLOT2.  01  0124 

24  L(35)=L(10)-1  01  0125 
60  TO  (27,25) »IP  01  0126 

25  CONTINUE  01  0127 
IPP=2  01  0128 
GO  TO  404  01  0129 

27  CALL  PLOT?  01  0130 
GO  TO  29  01  0131 

28  L(35)=L(35)-1  01  0132 

29  GO  TO  (30,31),IDX  01  0133 

30  L(33)»0  01  0134 
GO  TO  (36, 34), IP  01  0135 

31  11=2  01  0136 
GO  TO  4  01  0137 

32  GO  TO  (33, 30), II  01  0138 
TO  36 — ,  COMPUTE  ALL  THE  VARIABLES  OF  SUB2  WHEN  XA>X.  01  0139 

33  CALL  YPRIM2  01  0140 
IF(L(4) .GT.O)  CALL  TRAN  01  0141 
IF(L(6) .GT.O)  CALL  DUPLEX  01  0142 

34  IPP=3  01  0143 
GO  TO  404  01  0144 

36  CONTINUE  01  0145 
IF(NS.LE.O)  GO  TO  403  01  0146 
TO  403 — ,  COMPUTE  TOR,  XLOAD  AND  FR.  01  0147 
DO  37  1=1, NS  01  0148 
T0R(D=B(3,I)  01  0149 

37  XLOAD(I)=B(l,I)  01  0150 
403  FR  =  60.0»<D<2)  ♦  1.0)  01  0151 

RETURN  01  0152 

END  01  0153 
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SUBROUTINE  INPUT2 
C      READ  INPUT  DATA  FOR  SUB2 

C      ALL  COMMON,  EXCEPT  TITLE  AND  HEADt  IS  INITIALIZED  TO  ZERO  BEFORE 
C      DATA  ARE  READ. 

C      DATA  ARE  CHECKED  FOR  ERRORS  AS  THEY  ARE  READ.  THE  RUN  IS  ABORTED 
C      WITH  THE  FIRST  ERROR  FOUND,  AND  A  COMMENT  IS  WRITTEN  IN  TAPE  6. 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  02  0006 
1.LP1.LP2.LP3.TITLE.HEAD  02  0007 

DIMENSION  A (80.35) .B (99.35)  .BO (8) .C (50) .CD (3.4) ,D(120) .EG (50 > »EP (502  0008 

10) ,F< 316) »G(21.35)»GB (3.4.9) .0(316) »VV (21.9) »W (6.6.9). XL (6. 10.35) .02  0009 

2XM(6,10.9).Y(316) .Z(6.6.35).L(134).LG1(50).LG2(50) .LG3 (50 ) .LP1 (50 ) 02  0010 

3.LP2(50)»LP3(50).TITLE(39) .HEAD (39) 

DIMENSION  E(6) .N(10) .BB(8) 

DATA  BB/1HX.1HY.1HF.1HL.1HC.1HD.1HA.1HB/. 
IN/ 1.316. 31 6. 134, 50. 120. 80. 99. 35/. 
2BR, BI.BP.BG/IHR.IHI.IHP.IHG/ 

100  F0RMAT(13A6) 

101  FORMAT  (1H1.19HINPUT  DATA  FOR  SUB2//1H  .13A6/1H  .13A6/1H  »13A6) 

102  FORMATUH  .13A6/1H  .13A6/1H  ,13A6) 

103  FOPMAT(A1.1X,A1,7I1.6E10.4) 

104  FORMAT (1H1.25HABN0RMAL  EXIT  FROM  INPUT2/9H  BAD  DATA/1H  .A1.1X.A1 
111) 

105  FORMATUH  .Al  .  IX.  Al  .  1H  (  ,  I  3.  1H-.  13.  1H)  .6X.6E17.6) 

106  FORMATdH  .  Al  .  IX.  Al  ,  1H(  .  12.  1H-.  12.  1H.  .  12.  1H>  .5X.6E17.6) 

107  FORMAT  (1H  . Al » IX. Al . 1H ( ♦ 13. 1H-. 13. 1H) ) 

108  FORMAT  <1H  * Al ♦ IX , Al . 1H ( . 12. 1H-. 12. 1H. . 12. 1H) ) 

109  FORMAT  ( 1H1 .6H0UTPUT//1H  .13A6/1H  .13A6/1H  .13A6) 
C      TWO  LINES  DOWN—.  INITIALIZE  COMMON. 

CALL  SETF(A. 12759, 0.0) 
CALL  SETKL. 434.0) 
M=0 
K  =  0 

DO  45  1=1.8 
45  BO(I)  =  BB(I) 

READ  (5.100)  TITLE 
WRITE  (6.101)  TITLE 
READ  (5.100)  HEAD 
WRITE  (6.102)  HEAD 

2  READ  (5.103)  CI .C2. I 1 . 12. 13. 14. 15. 16. 17. E 
IF  (CI  -  BR)  3,40.3 

3  DO  4  1=1.8 
1 1  =  1 
IF(C2-B0(I) )4.6,4 

4  CONTINUE 
C      BAD  DATA.  ABORT  RUN. 

5  WRITE  (6,104)  CI ,C2, I 1 , 12, 13, 14, 15, 16, 17 
CALL  EXIT 

6  GO  TO  (7, 7, 7, 7, 7, 7, 8, 8), II 

7  K1=100»I1*10*I2*I3 
K2=100M5*10M6M7 
K3=0 
GO    TO    10 

8  K1=10*I3*I4 
K2=10M6*I7 
K3=10M1*I2 
IF     (K3    -    N(9) )     10,10,5 

10  K4=K2-K1»1 
IF(K2-N(II> )     11,11,5 

11  IF(K1)    5,5,12 
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12 

IF(K2-K1> 

5.13.13 

13 

IF(Cl-BI) 

33.14.33 

14 

IF(K4-6)  : 

15.15,5 

15 

GO  TO  (16 

•16. 16*16. 16* 

16.28, 

16 

WRITE  (6. 

105)  C1.C2.K1 

.K2. 

(E(I).I*1*K4) 

GO  TO  (17 

,18*20.22.24. 

26)  , 

II 

17 

X=E(1) 
GO  TO  2 

18 

DO  19  Irl 
J=Kl*I-l 

»K4 

19 

Y(J)=E(I) 

GO  TO  2 

20 

DO  21  1=1 
J=Kl*I-l 

.K4 

21 

F(J)=E(I) 
GO  TO  2 

22 

DO  23  1=1 
J=Kl*I-l 

.K4 

23 

L(J)=E(I) 
GO  TO  2 

2U 

DO  25  1=1 
J=K1»I-1 

.K4 

25 

C(J>=E(I) 
GO  TO  2 

26 

DO  27  1=1 
J=K1*I-1 

.K4 

27 

D(J)=E(I) 

GO  TO  2 

28 

WRITE  (6. 
IF(II-7) 

106)  C1.C2.K1 
29,29,31 

♦  K2i 

K3» (E(I) .1=1. 

29 

DO  30  1=1 
J=K1*I-1 

,K4 

30 

A(J.K3)=E(I> 

GO  TO  2 

31 

DO  32  1=1 
J=K1*I-1 

,K4 

32 

B(J»K3)=E(I) 

GO  TO  2 

33 

IF(Cl-BP) 

35.34.35 

34 

M=M*1 
EP(M)=C2 
LPl (M)=K1 
LP2(M)=K2 
LP3(M)=K3 
GO  TO  37 

35 

IF(Cl-BG) 

5,36,5 

36 

K=K*1 

EG(K)=C2 

LG1(K)=K1 

LG2(K)=K2 

LG3(K)=K3 

37 

IF  (II  - 

6)  38,38,39 

38 

WRITE  (6. 
GO  TO  2 

107)  C1,C2,K1 

♦  K2 

39 

WRITE  (6. 
GO  TO  2 

108)  C1.C2.K1 

»K2 

►  K3 

40 

L(50)=M 
L(49)=K 
WRITE  (6, 

109)  TITLE 

02  0059 
02  0060 
02  0061 
02  0062 
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02  0074 
02  0075 
02  0076 
02  0077 
02  0078 
02  0079 
02  0080 
02  0081 
02  0082 
02  0083 
02  0084 
02  0085 
02  0086 
02  0087 
02  0088 
02  0089 
02  0090 
02  0091 
02  0092 
02  0093 
02  0094 
02  0095 
02  0096 
02  0097 
02  0098 
02  0099 
02  0100 
02  0101 
02  0102 
02  0103 
02  0104 
02  0105 
02  0106 
02  0107 
02  0108 
02  0109 
02  0110 
02  0111 
02  0112 
02  0113 
02  0114 
02  0115 
02  0116 
02  0117 
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RETURN  Of  JJJ5 

END  °2  °119 
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SUBROUTINE  SETF,  (AI.J.AK)  °?  000° 

SET  J  POSITIONS  OF  REAL  ARRAY  AI  TO  THE  VALUE  AK.                    03  °°°1 

™M?XS1SVJ(1)  "  °°03 

aw  ./-'Ik  03  °004 

AI(IJ)  "  AK  03  0005 

END  "  °007 


105 

04  0000 

SUBROUTINE  SETKII.JtK)  0A  0001 

SET  J  POSITIONS  OF  INTEGER  ARRAY  II  TO  THE  VALUE  K.                  ^  000_, 

DIMENSION  II  (1)  04  0003 

DO  10  IJ=1.J  04  0004 

II(IJ)  =  K  04  0005 

10  CONTINUE  04  0006 

RETURN  04  0007 
END 
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SUBROUTINE  PRINT?  05  0000 

OUTPUT  FOR  SUB2  ON  TAPE  6.  05  0001 

COMMON  A,B.B0.C.CD.D»EG,EP,F,G»GB»Q»VV»W.X.XL»XM»Y.Z.L.LG1.LG2.LG3  05  0002 

1.LP1.LP2.LP3. TITLE.  HEAD  05  0003 

DIMENSION  A (80. 35) »B (99.35) .80 (8) .C (50 ) .CD (3,4) .D < 120 > tEG(50) .EP(505 

10) .F (316) .G(21.35),GB(3,4,9),Q<316) .VV (21 .9) .W (6.6.9) .XL (6. 10.35) 

2XM(6,10.9) ,Y(316).Z(6.6.35) .L ( 134) »LG1 (50) »LG2 (50) .LG3(50) .LP1 (50)( 

3.LP2(50) .LP3(50) .TITLE (39) .HEAD (39) 

100  FORMAT  (1H0) 

101  FORMATdH  , Al , 1H ( , 13. 1H-, 13, 1H) ,2X » 1 0 ( 1PE12.4) > 

102  FORMATdH  .  Al  ♦  1H  (  *  12.  1H-,  12.  1H.  .  12.  1H)  .  1  X.  10  ( 1PE12.4)  ) 

103  FORMATdH  »  Al  *  1H  (  .  13.  1H-.  13.  1H)  »2X.  10  16) 
M=L(50) 
IF(M)  19,19,1 

1  WRITE  (6,100) 
DO  18  I*1,M 
DO  2  J=l,8 
JJ=J 
IF(EPd)-BO(J)  )  2,3,2 

2  CONTINUE 

3  K1=LP1 (I) 
K2=LP2(I) 
K3=LP3(I) 

4  IF(K2-K1)  18,6,5 

5  IF(K2-Kl-9)  6,6,7 

6  K4=K2 
GO  TO  8 

7  K4=K1*9 

8  GO  TO  (9, 10, 11, 12, 13, 14, 15, 16), JJ 

9  WRITE  (6,101)  BO(JJ) ,K1,K4,X 
GO  TO  17 

10  WRITE  (6,101)  BO(JJ) ,K1,K4, (Y(J> »J=K1»K4> 
GO  TO  17 

11  WRITE  (6,101)  BO(JJ) ,K1,K4,(F(J),J=K1,K4) 
GO  TO  17 

12  WRITE  (6,103)  BO ( JJ) ,K1 ,K4, (L ( J) » J=K1 »K4> 
GO  TO  17 

13  WRITE  (6.101)  BO(JJ) .K1.K4. (C(J).J=K1,K4) 
GO  TO  17 

14  WRITE  (6,101)  BO(JJ) ,K1,K4,(D(J) ,J=K1,K4) 
GO  TO  17 

15  WRITE  (6,102)  BO ( JJ) ,K1 ,K4,K3, < A ( J,K3) , J=K1 ,K4) 
GO  TO  17 

16  WRITE  (6,102)  BO ( JJ) ,K1 ,K4,K3, (B ( J,K3) ♦ J=K1 ,K4) 

17  K1=K1*10 
GO  TO  4 

18  CONTINUE 

19  RETURN 
END 
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SUBROUTINE  PL0T2  06  0000 

OUTPUT  FOR  SUB2  ON  TAPE  2.  06  0001 

COMMON  A.8.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  06  0002 

1.LP1.LP2.LP3. TITLE. HEAD  06  0003 

DIMENSION  A (80.35) .B (99.35) »BO(8> .C (50) .CD (3.4) .D(120) .EG (50) .EP(506  0004 

10).F(316).G(21.35).G8(3.4.9).0(316).VV(21»9).W(6»6.9).XL(6.10.35).06  0005 

2XM(6.10.9) .Y (316) .Z (6.6.35) .L(134)»LG1 (50).LG2(50) .LG3(50) .LP1(50)06  0006 

3.LP2(50) .LP3(50) .TITLE(39) ,HEAD(39)  06  0007 

DIMENSION  P(50)  06  0008 

K=L(49)  06  0009 

IF(K)  20.20.1  06  0010 

1  L(44)=L<44)*1  06  0011 
1=0  06  0012 
DO  19  J=1.K  06  0013 
DO  2  M=l,8  06  0014 
MM=M  06  0015 
IF(EG(J)-BO(M) )  2.3.2  06  0016 

2  CONTINUE  06  0017 

3  K1=LG1 (J)  06  0018 
K2=LG2(J)  06  0019 
K3=LG3(J)  06  0020 
GO  TO  (4.5.7.9,11.13.15.17) , MM  06  0021 

4  1=1*1  06  0022 
P(I)=X  06  0023 
GO  TO  19  06  0024 

5  DO  6  N=K1,K2  06  0025 
1=1*1  06  0026 

6  P(I)=Y(N)  06  0027 
GO  TO  19  06  0028 

7  DO  8  N=K1,K2  06  0029 
1=1*1  06  0030 

8  P(I)=F(N)  06  0031 
GO  TO  19  06  0032 

9  DO  10  N=K1.K2  06  0033 
1=1*1  06  0034 

10  P(I)=L(N)  06  0035 
GO  TO  19  06  0036 

11  DO  12  N=K1,K2  06  0037 
1=1*1  06  0038 

12  P(I)=C(N>  06  0039 
GO  TO  19  06  0040 

13  DO  14  N=K1.K2  06  0041 
1=1*1  06  0042 

14  P(I)=D(N)  06  0043 
GO  TO  19  06  0044 

15  DO  16  N=K1.K2  06  0045 
1=1*1  06  0046 

16  P(I)=A(N.K3)  06  0047 
GO  TO  19  06  0048 

17  DO  18  N=K1.K2  06  0049 
1=1*1  06  0050 

18  P(I)=B(N.K3)  06  0051 

19  CONTINUE  06  0052 
L(45)=I  06  0053 
WRITE  (2)  (P(J).J=1.I)  06  0054 

20  RETURN  06  0055 
END  06  0056 
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SUBROUTINE  TAPE?  07  0000 

TRANSFER  TO  TAPES  6  AND  7  THE  OUTPUT  WRITTEN  BY  PL0T2  ON  TAPE  2.    07  0001 
COMMON  A,B»B0»C»CD»0.EG.EP.F,G.GB.Q.VV.W»X,XL,XM»Y»Z»L»LG1,LG2»LG3  07  0002 

1.LP1.LP2.LP3.TITLE.HEAD  07  0003 

DIMENSION  A (80*35) .B (99.35) .BO (8) .C(50> .CD (3*4) .D ( 120 > .EG (50) .EP(507  0004 

10).F(316).G(21.35).GB(3.4.9).0(316).VV(21.9).W(6.6.9)«XL(6.10.35).07  0005 

2XM(6,10.9) . Y (316) .Z (6.6.35) .L(134),LG1 (50) »LG2 (50 ) .LG3 (50 > .LP1 (50)07  0006 

3.LP2(50) .LP3(50).TITLE(39) .HEAD (39) 
DIMENSION  P(50) 

100  FORMAT (1H1.18HPRINTOUT  OF  TAPE  7/1H  .13A6/1H  .13A6/1H  ,13A6) 

101  FORMATdH  .13A6/1H  .13A6/1H  .13A6) 

102  FORMATdH  .18HNUMBER  OF  REC0RDS=.I4) 

103  FORMAT  (1H  .7 ( 1PE15.4) ,216) 

104  FORMAT(13A6) 

105  FORMAT (18HNUMBER  OF  REC0RDS=«I4> 

106  FORMAT(7(1PE10.3) .215) 
IF(L(44))  8,8.1 

1  WRITE  (6.100)  TITLE 

WRITE  (6,101)  HEAD 

WPITE  (6,102)  L(44) 

WRITE  (7,104)  TITLE 

WRITE  (7.104)  HEAD 

WRITE  (7,105)  L(44) 

REWIND  2 

II=L(44) 

KK=L(45) 

DO  3  1=1,50 
3  P(I)  =  0.0 

DO  7  1=1,11 

READ<2)  (P(K) ,K=1»KK) 

J=l 

Kl  =  l 

K2=7 

5  WRITE  (6,103)  (P (K) ,K=K1 ,K2) , I . J 
WRITE  (7,106)  (P(K) ,K=K1,K2),I,J 
IF(K2-KK)  6,7,7 

6  K1=K1*7 
K2=K2*7 
J=J*1 
GO  TO  5 

7  CONTINUE 

8  RETURN 
END 
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SUBROUTINE  PRINTO  08  0000 

C      WRITE  ON  TAPE  6  THE  VALUES  OF  THE  DEPENDENT  AND  OTHER  VARIABLES  OF  08  0001 

C      SUB2.  08  0002 

COMMON  A,B,B0,C,CD,0»EG,EP,F,G,GB,Q,VV»W,X»XL»XM,Y»Z»L»LG1,LG2,LG3  08  0003 

1,LP1»LP2,LP3, TITLE, HEAD  Ofl  0004 

DIMENSION  A(80»35) ,B (99,35) ,BO(8> .C(50) .CD (3*4) ,D(120) »EG<50) .EP(508  0005 
10) .F(316) .G(21.35) .GB (3.4,9) »Q (316) »VV(21»9) »W (6.6.9) .XL (6. 10.35) .08  0006 
2XM(6.10,9).Y(316) »Z (6,6,35) ,L ( 134) ,LG1 (50) ,LG2 (50) .LG3(50).LP1 (50)08  0007 

3.LP2<50) .LP3(50) .TITLE(39) »HEAD(39)  08  0008 

1  F0RMAT(1H1.47HVALUES  OF  DEPENDENT  AND  OTHER  VARIABLES  AT  TIME.F9.4  08  0009 

1.4H  SEC/1H0)  08  0010 

?  FORMATUH0.12H  SET  NUMBER  .12/)  08  0011 

3  FORMATdH  »2HY(,I3.3H)  =,E16.8)  08  0012 

11  FORMATUH0.24H  COMMERCIAL  POWER  SYSTEM/)  08  0013 

14  FORMAT  (1H  ,2HB ( ♦ 12. 1H, , I2.2H) =.E16.8/3H  F(.I3  08  0014 
1.2H)=.E16.8/)  08  0015 

16  FORMAT (1H0.47H  DUPLEX  REACTOR  AND  HIGH  VOLTAGE  POWER  SUPPLIES/)  08  0016 
WRITE(6.1)  X  08  0017 
NS=L(1)»L(2)*L(3)*L(4)  08  0018 
Nl =1  08  0019 
N2=0  08  0020 
IF  (  NS  .LE.  0  )  GO  TO  111  08  0021 
DO  5  1=1. NS  08  0022 
WRITE(6.2)  I  08  0023 
LI=L(I*99)  08  0024 
GO  TO  (6.7.8.18) .LI  08  0025 

6  N2=N2*11  08  0026 
J=14  08  0027 
J9  =  Nl*8  08  0028 
WRITE  (6.14)  J.I.B(J.I)  .J9.FU9)  08  0029 
GO  TO  9  08  0030 

7  N2=N2*19  08  0031 
J9=N1*16  08  0032 
J=42  08  0033 
WRITE(6.14)  J.I.B(J.I) .J9,F(J9)  08  0034 
GO  TO  9  08  0035 

8  N2=N2*7  08  0036 
GO  TO  9  08  0037 

lfl  N2=N2*3  08  0038 

9  DO  4  J=N1.N2  08  0039 

4  WRITE(6.3)  J.Y(J)  08  0040 

5  N1=N2*1  08  0041 
111  IF  (  L(5)  )  13,  13.  10  08  0042 

10  WRITE  (6,11)  08  0043 

N2=N2*3  08  0044 

DO  12   J=N1,N2  08  0045 

12  WRITE  (6,3)  J,Y(J)  08  0046 

13  IF  (L(6).LE.O)  GO  TO  15  08  0047 
WPITE  (6,16)  08  0048 
N2=L(31)  08  0049 
DO  17  J=N1,N2  08  0050 

17  WRITE  (6,3)  J,Y(J)  08  0051 

15  RETURN  08  0052 
END  08  0053 
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SUBROUTINE  INITIA  09  0000 

INITIALIZE  CERTAIN  VARIABLES  AND  CONSTANTS.  09  0001 

COMMON  A,B»B0»C,CD,n,EG,EP,F,G»GB,Q,VV»W,X»XL»XM»Y»Z»L»LGl,LG2,LG3  09  0002 
1,LP1»LP2»LP3,TITLE,HEAD  09  0003 

DIMENSION  A (80, 35) ,B (99,35) ,BO (8) ,C (50) ,CD < 3,4) ,D ( 120) .EG (50) ,EP (509  0004 
10),F(316),G(21,35),GB(3,4,9),Q(316),VV(21,9),W(6,6,9),XL(6,10,35),09  0005 
2XM(6,10,9) ,Y(316),Z(6,6,35) ,L(134) ,LG1 (50) ,LG2(50) ,LG3 (50 ) ,LP1 (50 ) 09  0006 
3,LP2(50),LP3(50) , TITLE (39) , HEAD (39) 

REWIND  2 

NS=L(1)*L(2)*L(3)*L(4) 

L(34)  =  L(9)-l 

L(35)  =  L(10)-l 

L(31)*11»L(1>M9»L<2>*7«L(3)0»L<4> 

IF(L(5) .LE.O)  GO  TO  1 

L(31)=L(31)0 

L(NS*51)  =  L(31)  -  2 

1  IF(L(6) .LE.O)  GO  TO  2 
L(31)*L(31)*6 

2  IF(NS.LE.O)  RETURN 
J=l 

DO  9  I»1»NS 
L(I»50)  ■  J 
LI=L(I*99) 
GO  TO  (4,5,7,10) ,LI 

4  A(36,I)=B(14,I) 
A(37,I)=F(J*8) 
J=JM1 
GO  TO  6 

5  A(66,I)=B(42,I) 
A(67,I)=F(J*16) 
J=J*19 
K=I-L(1> 

XM(6,6,K)=A(40,I) 
W(4,4,K)=A(42,I) 
W(5,5,K)=A(43,I) 
W(6,6,K)=A(44,I) 

6  XL(6,6,I)=A(10,I) 
Z(4,4,I)=A(12,I) 
Z(5,5,I)=A(13,I) 
Z(6,6,I)=A(14,I) 
GO  TO  9 

7  XL(5,5,I)=A(3,I) 
Z(ltlfl)  =  A(5,I) 
Z(2,2,I)  =  A(5,I) 
Z(3,3,I)  =  A(5,I) 
Z(4,4,I)  =  A(6,I) 
Z(5,5,I)=A(6,I) 
J=J*7 
GO  TO  9 

10  J=J*3 
9  CONTINUE 
RETURN 
END 
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SUBROUTINE  RNGKT2  10  0000 

C      INTEGRATION  SCHEME  TOR  THE  DEPENDENT  VARIABLES  OF  SUB2--GILL  PRO-   10  0001 

C      CEDURE  OF  THE  FOURTH  ORDER  RUNGE-KUTTA  METHOD.  10  0002 

COMMON  A.B»B0.C.CD.D.EG»EP.F.G.GB«Q.VV,W.X,XL.XM.YtZ»L.LGl.LG2.LG3  10  0003 

l.LPl»LP2»LP3, TITLE, HEAD  10  0004 

DIMENSION  A<80.35> .B<99.35) .80(8) .C<50) .CD<3«4> .0(120) .EG(50) .EP<510  0005 
10).F(316).G(21.35)»GB<3.4.9).Q<316).VV(21.9>.W(6.6.9>.XL<6»10.35>.10  0006 
2XM(6.10.9) , Y (316) »Z (6.6.35) ,L( 134). LG1 (50) »LG2(50) »LG3(50).LP1 (50) 10  0007 

3.LP2(50).LP3(50).TITLE(39).HEAD(39)  10  0008 

N=L(31)  10  0009 

H=D(31)  10  0010 

HH=.5«H  10  0011 

CALL  YPRIM2  10  0012 

DO  5  1=1, N  10  0013 

S=F(I)«H  10  0014 

T=.5»(S-2.«Q(I>>  10  0015 

Y(I)=Y(I)*T  10  0016 

5  Q(I)=Q(I)*3.»T-.5»S  10  0017 
X=X*HH  10  0018 
CALL  YPRIM2  10  0019 
DO  6  1=1, N  10  0020 
S=F(I)«H  10  0021 
T=0.292893219«(S-Q(I) )  10  0022 
Y(I)=Y(I)*T  10  0023 

6  Q(I)=0(I)*3.*T  -0.292893219«S  10  0024 
CALL  YPRIM2  10  0025 
DO  7  1=1, N  10  0026 
S=F(I)«H  10  0027 
T=1.707106781»(S-Q(I) )  10  0028 
Y(I)=Y(I)*T  10  0029 

7  Q(I)=Q(I)O.0*T-1.707106781»S  10  0030 
X=X*HH  10  0031 
CALL  YPRIM2  10  0032 
DO  8  1=1, N  10  0033 
S=F(I)«H  10  0034 
T=(S-2.»Q(I) )/6.  10  0035 
Y(I)=Y(I)*T  10  0036 

8  Q(I)=Q(I)*3.»T-.5»S  10  0037 
RETURN  10  0038 
END  10  0039 
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60  TO  50 


GO  TO  50 


SUBROUTINE  SWITCH 
C      DISCONNECT  COMPONENTS  FROM  THE  MAIN  BUS  PHASE-BY-PHASE  WHEN  THE 
C      RESPECTIVE  PHASE  CURRENTS  ARE  ZERO. 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 
1.LP1.LP2.LP3. TITLE* HEAD 

DIMENSION  A (80 ,35) .8(99,35) tB0(8) ,C(50) ,CD (3,4) ,D < 120 ) .EG (50) ,EP<51 
10>.F(316).G(21.35).G8(3.4,9).Q(316>.VV(21.9)»W(6.6.9).XL<6»10.35).1 
2XM<6.10.9) .Y (316) .Z (6.6.35) .L( 134) .LG1 <50>.LG2(50) .LG3(50) »LP1 (50) 1 
3»LP2(50) .LP3(50> .TITLE (39) .HEAD (39)  1 

DIMENSION  YY(316). 00(316). BB(3.35)  1 

IF(L(37) .LE.O)  GO  TO  3 
L(37)=0 
C      DISCONNECT  PHASE  A. 

2  L(40>=10 
IF(I.GT.NS.0R.LI.NE.4) 
N=J*2 

1  Y(J)=0.5»(Y(J)*Y(N) ) 
Q(J)=0.5«(Q(J)*Q(N) ) 
Y(N)=Y(J) 
0(N)=0(J) 
GO  TO  55 

3  IF(L(38) .LE.O)  GO  TO  6 
L(38)=0 

C      DISCONNECT  PHASE  B. 

5  L(41)=10 

4  IF(I.GT.NS.0R.LI.NE.4) 
N=J-1 
GO  TO  1 

6  IF(L(39) .LE.O)  GO  TO  10 
L(39)=0 

C      DISCONNECT  PHASE  C. 
9  L(42)=10 

GO  TO  4 
10  NS=L(1)*L(2)*L(3)»L(4) 
C      TO  20 — .  DETERMINE  COMPONENT  TO  BE  DISCONNECTED. 

IF(NS.LE.O)  GO  TO  15 

DO  13  1=1. NS 

XD=A(20»I) 

LI=L(I*99) 

IF(LI.EQ.3) 

IF(LI.EQ.4) 

IF(X.LT.XD) 

L(43)=I 

GO  TO  20 

CONTINUE 

IF(L(5) .LE.O)  GO  TO  200 

IF(X.LT.C(46) )  GO  TO  200 

L(43)=NS*1 

I=L(43) 

IF(L(40) .GT.O) 

TO  ABOVE  26—, 

J=L(I*50) 

PY=Y(J)»YY(J) 

IF(I.LE.NS.AND.LI.EQ.4) 

K=l 

IF(PY)  26,2.35 

26  L(37)  =  10 
TO  30  —  .  BACKSTEP  TO  INTEGRATE  TO  ZERO  CURRENT. 

27  RY=YY(J)/(YY(J)-Y(J) ) 


XD=A(8,I) 
XD=A(11,I) 
GO  TO  13 


13 

15 


20 
25 


GO  TO  35 
DETERMINE 


IF  PHASE  A  SHOULD  BE  DISCONNECTED. 


PY=B(1,I)«BB(1»I) 


11 

0000 

11 

0001 

11 

0002 

11 

0003 

11 

0004 

1 

5005 

1 

3006 

1 

3007 

1 

3008 

1 

3009 

11 

0010 

11 

0011 

11 

0012 

11 

0013 

11 

001^ 

11 

0015 

11 

0016 

11 

0017 

11 

0018 

11 

0019 

11 

0020 

11 

0021 

11 

0022 

11 

0023 

11 

0024 

11 

0025 

11 

0026 

11 

0027 

11 

0028 

11 

0029 

11 

0030 

11 

0031 

11 

0032 

11 

0033 

11 

0034 

11 

0035 

11 

0036 

11 

0037 

1 

3038 

11 

0039 

11 

0040 

11 

0041 

11 

0042 

11 

0043 

11 

0044 

11 

00^5 

11 

0046 

11 

0047 

11 

0048 

11 

0049 

11 

0050 

11 

0051 

11 

0052 

11 

0053 

11 

0054 

11 

0055 

11 

0056 

11 

0057 

11 

0058 
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RY=BB<K,I)/(BB(K,I)-B<K,I) ) 


30 


35 


38 


40 


45 


50 


55 


60 


70 
80 


90 


GO  TO  40 

DETERMINE 


IF  PHASE  B  SHOULD  BE  DISCONNECTED. 


PY=B<2,I)*BB(2,I) 


GO  TO  200 
DETERMINE 


IF  PHASE  C  SHOULD  BE  DISCONNECTED. 


PY=B(3,I)»BR(3,I) 


IF(I.LE.NS.AND.LI.E0.4) 

X=X-D(31) 

D(31)=D<31)»RY 

L(36)=2 

NN=L(31) 

DO  30  N=1,NN 

Y(N)=YY(N) 

Q(N)=QQ(N) 

RETURN 

IF<L<41) .GT.O) 

TO  ABOVE  38— » 

J=L(I*50>*1 

PY=Y(J)»YY(J) 

IF(I.LE.NS.AND.LI.E0.4) 

K=2 

IF(PY)  38,5,40 

L(38)  =  10 

GO  TO  27 

IF(L(42) .GT.O) 

TO  ABOVE  45 — » 

J=L(I*50>*2 

PY=Y<J)«YY(J) 

IF(I.LE.NS.AND.LI.E0.4) 

K  =  3 

IF<PY)  45,9*200 

L(39)  =  10 

GO  TO  27 

YU>=0.0 

Q(J)=0.0 

TO  ABOVE  60—.  DETERMINE  IF  ALL  PHASES  ARE  DISCONNECTED. 

IF(L(40) .GT.O. AND. L(41) .GT.O. AND. L(42) .GT.O)  GO  TO  60 

GO  TO  25 

IF(L(40) .GT.O. AND. L(41) .GT.O)  GO  TO  60 

IF(L(40) .GT.O. AND. L(42) .GT.O)  GO  TO  60 

IF(L<41) .GT.O. AND. L(42) .GT.O)  GO  TO  60 

GO  TO  25 

TO  180  —  ,  COMPONENT  HAS  BEEN  DISCONNECTED.  ADJUST  VARIABLES 

SHIFT  ARRAYS.  ALSO,  SHIFT  INSTRUCTIONS  FOR  PL0T2. 

L(40)=0 

L(41)=0 

L(42)=0 

L(43)=0 

IF(I.LE.NS)  GO  TO  70 

L(5)=0 

K  =  3 

IF(L<6>>  160,160,140 

GO  TO  (80,90,100,110)  , 

L(1)=L(1)-1 

K  =  ll 

GO  TO  120 

L(2)=L(2)-1 

K=19 

IF(I.EO.NS)  GO  TO  120 

J1=I-L(1> 

J2=L(2) 

IFU1.GT.J2)  GO  TO  120 

DO  98  J=J1,J2 

J3=J*1 

DO  92  N=l,21 


AND 


LI 


11  0059 

11  0060 

11  0061 

11  0062 

11  0063 

11  0064 

11  0065 

11  0066 

11  0067 

11  0068 

11  0069 

11  0070 

11  0071 

11  0072 

11  0073 

11  0074 

11  0075 

11  0076 

11  0077 

11  0078 

11  0079 

11  0080 

11  0081 

11  0082 

11  0083 

11  0084 

11  0085 

11  0086 

11  0087 

11  0086 

11  0089 

11  0090 

11  0091 

11  0092 

11  0093 

11  0094 

11  0095 

11  0096 

11  0097 

11  0098 

11  0099 

11  0100 

11  0101 

11  0102 

11  0103 

11  0104 

11  0105 

11  0106 

11  0107 

11  0108 

11  0109 

11  0110 

11  0111 

11  0112 

11  0113 

11  0114 

11  0115 

11  0116 

11  0117 
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92  VV(N»J)=VV(N»J3> 
DO  96  M=l .6 
DO  9*  N=l»6 

94  W(M»NtJ)=W(M»N.J3) 
DO  95  N=l»10 

95  XM(M»N»J)=XM<M.N»J3) 

96  CONTINUE 
98  CONTINUE 

GO  TO  120 
100  L(3)=L(3>-1 

K  =  7 

GO  TO  120 
110  L(4)=L<4>-1 

K  =  3 

120  IF(I.EQ.NS)  GO  TO  130 
J1  =  I 

J2=NS-1 

DO  129  J=J1,J2 

J3=J*1 

DO  121  M=1.80 

121  A(M»J)=A(M« J3) 
DO  122  M=l»99 

122  B(M»J)=B(M»J3) 
IF(L(J*99) .EQ.4)  GO  TO  126 
DO  125  M=l,6 

DO  123  N=1.6 

123  Z(M.NtJ)=Z(M,N»J3) 
DO  124  N=l»10 

124  XL(M.N.J)=XL(M»N,J3) 

125  CONTINUE 
GO  TO  128 

126  DO  127  M=l,21 

127  G(M»J)=G(M»J3) 

128  L(J»99)=L(J3*99) 
L(J*50)=L<J3*50)-K 

129  CONTINUE 

130  IF(L(5) .GT.O)  GO  TO  135 
IF(I-NS)  140»160»140 

135  L(NS*50)=L(NS*51)-K 
140  J1=L(I*50)*K 

J2=L(31) 

DO  150  J=J1.J2 

M=J-K 

Y(M>=Y(J) 
150  Q(M)=Q(J) 
160  L(31)=L(31)-K 

J1=L(49) 

DO  180  J=1.J1 

IF(EG(J)  ,EQ.BO(2)  .OR.EG(J)  .EQ.BOO))  GO  TO  175 

IF(EG(J) .NE.BO(7) .AND.EG(J) ,NE.B0(8) )  GO  TO  180 

IF(LG3(J> .GT.I)  LG3(J)=LG3(J)-1 

GO  TO  180 
175  IF<LG1 (J) .LE.(L(I»50)*K) )  GO  TO  180 

LG1(J)=LG1 (J)-K 

LG2(J)=LG2(J)-K 
180  CONTINUE 

TO  220  —  .  STORE  THE  PRESENT  VALUES  OF  THE  Y  AND 

THE  CURRENTS  OF  THE  DISTRIBUTION  TRANSFORMES  TO 
200  L(36>=1 


11  0118 

11  0119 

11  0120 

11  0121 

11  0122 

11  0123 

11  0124 

11  0125 

11  0126 

11  0127 

11  0128 

11  0129 

11  0130 

11  0131 

11  0132 

11  0133 

11  0134 

11  0135 

11  0136 

11  0137 

11  0138 

11  0139 

11  0140 

11  0141 

11  0142 

11  0143 

11  0144 

11  0145 

11  0146 

11  0147 

11  0148 

11  0149 

11  0150 

11  0151 

11  0152 

11  0153 

11  0154 

11  0155 

11  0156 

11  0157 

11  0158 

11  0159 

11  0160 

11  0161 

11  0162 

11  0163 

11  0164 

11  0165 

11  0166 

11  0167 

11  0168 

11  0169 

11  0170 

11  0171 

11  0172 

11  0173 

Q  ARRAYS  AND  OF 

11  0174 

THE  MAIN  BUS. 

11  0175 

11  0176 

NN=L<31> 

DO  210  N=1»NN 

YY(N)=Y(N) 
210  QQ<N)=Q(N) 

IF(L<4) .LE.O)  RETURN 

J1=L(1)*L(2)*L(3)»1 

J2=J1*L(4)-1 

DO  220  N=J1»J2 

BB(1.N)=B(1»N> 

BB(2»N)=B(2»N) 
220  BB(3tN)=B(3tN) 

RETURN 

END 
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11  0177 

11  0178 

11  0179 

11  0180 

11  0181 

11  0182 

11  0183 

11  018^ 

11  0185 

11  0186 

11  0187 

11  0188 

11  0189 
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SUBROUTINE  DISCON  12  0000 

C      DISCONNECT  GENERATORS  FROM  THE  BUSES  OF  THE  MG  SETS  WHEN  THE  RE-    12  000  1 

C      SPECTIVE   PHASE   CURRENTS  ARE  ZERO.  12  0002 

COMMON  A,B.B0.C,CD.0»EG,EP.F,G,GB.Q»VV»W,X»XL,XM,Y»Z»L»LG1.LG2.LG3  12  0003 

1,LP1,LP2.LP3. TITLE, HEAD  12  0004 

DIMENSION  A (80.35) ,B (99,35) .80(8) »C (50) ,CD(3.4>  .0(120) ,EG(50) ,EP(512  0005 
10),F(316),G(21,35),GB(3,4,9),Q(316)»VV(21,9),W(6,6,9>,XL(6,10»35)»12  0006 
2XM(6.10.9).Y(316) .Z (6.6. 35) ,L < 1 34) .LG1 (50).LG2(50) ,LG3(50) . LP  1 (50) 12  0007 

3.LP2(50) .LP3(50).TITLE(39).HEAD(39)  12  0008 

DIMENSION  YY(316) .00(316)  12  0009 

N1=L(1)*1  12  0010 

N2=N1*L(2)-1  12  0011 

I=N1  12  0012 

1  IF(8(92.I) .LE.0.0)  GO  TO  4  12  0013 
B(92.I)=0.0  12  0014 
K=I  12  0015 

C      DISCONNECT  PHASE  A.  12  0016 

2  B(95,K)=10.0  12  0017 

3  Y(J)=0.0  12  0018 
O(J)=0.0  12  0019 

C      DETERMINE  IF  ALL  PHASES  ARE  DISCONNECTED.  12  0020 
IF(B(95.K) .LE.0.0.OR.B(96.K) .LE.0.0 .OR.B (97.K) .LE.0.0)  GO  TO  22     12  0021 

A(72.K>=100.0  12  0022 

GO  TO  60  12  0023 

4  IF(B(43. I). LE.0.0)  GO  TO  6  12  0024 
B(93,I)=0.0  12  0025 
K=I  12  0026 

C      DISCONNECT  PHASE  B.  12  0027 

5  B(96.K)=10.0  12  0028 
GO  TO  3  12  0029 

6  IF(B(94, I) .LE.0.0)  GO  TO  10  12  0030 
B(94,I)=0.0  12  0031 
K=I  12  0032 

C      DISCONNECT  PHASE  C.  12  0033 

7  B(97,K)=10.0  12  0034 
GO  TO  3  12  0035 

10  IFU.GE.N2)  GO  TO  11  12  0036 
1=1*1  12  0037 
Go  TO  1  12  0038 

C      TO  20--.  DETERMINE  GENERATOR  TO  BE  DISCONNECTED.  12  0039 

11  DO  13  I=N1,N2  12  0040 
IF(A(69,I) .GE.0.0)  GO  TO  13  12  0041 
IF(X.LT.A(72,I) )  GO  TO  13  12  0042 
K=I  12  C043 
GO  TO  20  12  0044 

13  CONTINUE  12  0045 

GO  TO  60  12  0046 

20  B(98.K)=K  12  0047 

22  IF(B(95.K) .GT.0.0)  GO  TO  35  12  0048 

C      TO  25—,  DETERMINE  IF  PHASE  A  SHOULD  BE  DISCONNECTED.  12  0049 

J=L(K*50)*8  12  0050 

25  IF(Y(J)*YY(J) )  26,2.35  12  0051 

26  B(92.K)=10.0  12  0052 
C      TO  ABOVE  35~,  8ACKSTEP  TO  INTEGRATE  TO  ZERO  CURRENT.  12  0053 

27  X=X-D(31)  12  0054 
D(31)=D(31)»YY(J)/(YY(J)-Y(J) )  12  0055 
NT=L(31)  12  0056 
DO  30  1=1. NT  12  0057 
Y(I)=YY(I)  12  0058 
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30 


35 


36 

3ft 

40 


48 
50 


60 


61 


GO 
IF 

.40 


0(1) =00(1) 

L(36>=2 

RETURN 

IF(B(96.K> .GT.O.O) 

TO  36 — *  DETERMINE 

J=L(K*50)*9 

IF(Y(J>«YY(J> >  38.5 

B(93*K)=10.0 

GO  TO  27 

IF(B(97*K) .GT.O.O)  GO 

TO  48 — *  DETERMINE  IF 

J=L(K*50)*10 

IF(Y(J)»YY(J) )  50*7*60 

B(94,K>=10.0 

GO  TO  27 

STORE  THE  PRESENT  VALUES 

NT=L(31) 

DO  61  1=1. NT 

YY(I)=Y(I) 

OQ(I)*Q(I) 

L(36)=l 

RETURN 

END 


TO  40 
PHASE 


TO  60 
PHASE 


B  SHOULD  BE  DISCONNECTED. 


C  SHOULD  BE  DISCONNECTED. 


OF  THE  Y  AND  Q  ARRAYS. 


12  0059 

12  0060 

12  0061 

12  0062 

12  0063 

12  0064 

12  0065 

12  0066 

12  0067 

12  0068 

12  0069 

12  0070 

12  0071 

12  0072 

12  0073 

12  0074 

12  0075 

12  0076 

12  0077 

12  0078 

12  0079 

12  0080 

12  0081 
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SUBROUTINE  VMAX 
C      COMPUTE  THE  PERCENT  ERRORS  OF  THE  PEAKS  AND  FREQUENCIES  OF  THE 
C      LINE-TO-LINE  VOLTAGES  OF  THE  MAIN  BUS. 

COMMON  A,B,B0»C,CD,D»EG,EP,F,G,GB,Q,VV»W,X»XL»XM,Y»Z»L»LG1,LG2,LG3 
1,LP1»LP2,LP3»TITLE,HEAD 

DIMENSION  A (80,35) »B<99,35) ,B0(8) ,C(50> .CD (3.4) ,D<120) .EG (50) ,EP(5 
10),F(316>,G<21,35)»GB(3,4,9),Q(316)»VV(21»9)»W(6.6»9>.XL<6.10.35). 
2XM(6.10.9) .Y (316) .Z (6.6.35) »L(134) »LG1 (50) .LG2 (50) »LG3(50) .LP1 (50) 
3.LP2(50) ,LP3<50) .TITLE (39) .HEAD (39) 
DIMENSION  V(21) 
C      TO  ABOVE  16—.  SET  CONTROLS  FOR  SPECIAL  COMPUTATIONS  DURING  BUS 
C      FAULTS. 


8 
9 
10 
11 
12 
13 

15 


16 

17 

18 
19 

20 


IF 

IF 

IF 

IF 

IF 

V(21) 

V(20) 

V(19) 

GO  TO 


(X  -  C(9) )  16.1.1 
(X  -  C(9)  -  D(31) ) 
(L(7>)  16,16.3 


2.2.8 


10*10.16 


(L(7>  -  3)   4,5,7 
(L(7)  -  2)   16,7,7 

=  10.0 

=  10.0 

=  10.0 

16 
IF  (X  -  C(10) )  16,9,9 
IF  (X  -  C(10)  -  D(31>) 
IF  (L(7))  16,16,11 
IF  (L(7)  -  3)  12,13,15 
IF  (L<7)  -  2)  16,15,15 
L(46)  =  0 
GO  TO  16 
V<13)  =  0.0 
V(16)  =  0.0 
V(19)  =  0.0 
V(6)  =  0.0 

IF  (L(46))   17,17,19 
TO  18—,  SET  THE  ARRAY  V  TO  ZERO. 
L(46)  =  10 
DO  18  1=1,21 
V(I)  =  0.0 

IF  (D(31)  -  0.1»C(D)   37,20,20 
TO  21  —  ,  TRANSFER  POINTS. 


V(l) 
V(2> 
V(4) 
V(5) 
V(7) 
V(8) 
V(10)  = 


V<2) 
V(3) 
V(5) 
V<6) 
V(8) 
V(9) 
V(ll) 


V(ll)  =  V(12) 
V(3)  =  X 
V(6)  =  D(38) 
V(9)  =  D(39) 

21  V(12)  =  D(40) 
DO  35  1=1,3 
IF  (V(I+18)> 
TO  ABOVE  23— 

22  J  =  2«I  ♦  5 
D(J)  =  -100.0 
D(J»1)  =  -100.0 
D(I*12)  =  -100.0 
GO  TO  35 


23,23,22 
SPECIAL 


COMPUTATIONS  DURING  BUS  FAULTS. 


13  0000 
13  0001 
13  0002 
13  0003 
13  0004 
13  0005 
13  0006 
13  0007 
13  0008 
13  0009 
13  0010 
13  0011 
13  0012 
13  0013 
13  0014 
13  0015 
13  0016 
13  0017 
13  0018 
13  0019 
13  0020 
13  0021 
13  0022 
13  0023 
13  0024 
13  0025 
13  0026 
13  0027 
13  0028 
13  0029 
13  0030 
13  0031 
13  0032 
13  0033 
13  0034 
13  0035 
13  0036 
13  0037 
13  0038 
13  0039 
13  0040 
13  0041 
13  0042 
13  0043 
13  0044 
13  0045 
13  0046 
13  0047 
13  0048 
13  0049 
13  0050 
13  0051 
13  0052 
13  0053 
13  0054 
13  0055 
13  0056 
13  0057 
13  0058 
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23  J  =  3*1  ♦  3 
J1=J-1 

TO  29~,  COMPUTATION  OF  PERCENT  FREQUENCY  ERRORS. 
IF  (V(J))   25,24,25 

24  XE  =  V(3) 
GO  TO  27 

25  IF(V(J)»V(J1) )  26,30,30 

26  XE  =  V(2)  -  V(J1)*(V(3>  -  V(2))/(V(J)  -  V(J1)) 

27  J2  =  I  ♦  12 

IF  (V(J2>>   29,29,28 

28  D(J2)  =  0.5/(XE  -  V(J2)) 
0(2)  =  D(J2)/0.6  -  100.0 
D(J2)  =  D(2) 

29  V(J2)  =  XE 

TO  35 — •  COMPUTATION  OF  PERCENT  ERRORS  OF  PEAKS. 

30  J2  =  I  ♦  15 

V(J2)  =  V<J2)  ♦  1.0 

IF  (V(J2)-  3.0)   35,31,31 

31  J?  =  J  -  2 

IF  (<V(J1>  -  V(J2) )«(V(J1)-V(J) ) )  35,32,32 
3?  Wl  =  V<J2)»(V(3>  -  V(2) ) 
W2  =  V(J1)»(V(1)  -  V(3) ) 
W3  =  V(J)»(V(2)  -  V(l) ) 
TE1  =  W1»(V(3)*V<2) ) 
TE2  =  W2»(V(1)*V(3) ) 
TE3  =  W3«(V(2)*V(1)  ) 
TE4  =  W1*W2*W3 
XE  =  0.5»(TE1*TE2*TE3)/TE4 
YE  =  V(J2)«(XE  -  V(2))«(XE  -  V(3))/(V(1)  -  V(2))/(V(1)  - 

1  V(J1)»(XE  -  V(1))*(XE  -  V(3))/(V(2)-  V(l) )/<V(2)-V(3) )  < 

2  (XE  -  V(1))«(XE  -  V(2))/(V(3)  -  V < 1 ) )/ (V (3)-V (2) ) 
IF(YE-V(J))  33,34,34 

33  J  =  2«I*6 

0(1)  =-100.0»(YE/C(?)  ♦  1.0) 
D(J)  =  0(1) 
GO  TO  35 

34  J  =  2»I  ♦  5 

D(l)  =  100.0«(YE/C(2)  -  1.0) 
D(J)  =  D(l ) 

35  CONTINUE 

IF  (V<21>)  37,37,36 

SPECIAL  COMPUTATION  DURING  THREE  PHASE  BUS  FAULT. 

36  D(l)  =  -100.0 
D(2)  s  -100.0 

37  RETURN 
END 


13 

0059 

13 

0060 

13 

0061 

13 

0062 

13 
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13 

0065 

13 
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13 

0067 

13 
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0070 
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0071 

13 
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13 

0073 

13 

0074 

13 

0075 

13 
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13 

0077 

13 

0078 

13 

0079 

13 

0080 

13 

0081 

13 
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13 

0083 

13 

0084 

13 

0085 

13 

0086 

V(3))  ♦    13 

0087 

V(J)«     13 

0088 

13 

0089 

13 

0090 

13 

0091 

13 

0092 

13 

0093 

13 
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13 

0095 
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13 
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13 
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13 
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13 

0100 

13 
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13 

0102 

13 
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13 
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SUBROUTINE  VMAXGB  14  0000 

C      COMPUTE  THE  PERCENT  ERRORS  OF  THE  PEAKS  AND  FREQUENCIES  OF  THE      14  0001 
C      LINE-TO-LINE  VOLTAGES  OF  THE  BUSES  OF  THE  MG  SETS.  14  0002 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  14  0003 
1.LP1.LP2.LP3.TITLE.HEAD  14  0004 

DIMENSION  A (80.35) »R (99.35) .BO (8) .C (50 > .CD < 3.4) .D ( 120) .EG (50) .EP<514  0005 
10).F(316).G(21»35).GB<3»4.9),Q(316).VV(21.9).W(6.6.9>»XL(6,10.35>.14  0006 
2XM(6.10.9) .Y(316),Z(6.6.35) ,L ( 134) »LG1 (50) .LG2 (50 ) .LG3 (50) .LP1 (50) 14  00  07 
3.LP2(50) .LP3(50) .TITLE ( 39) .HEAD ( 39) 

L2=L<2) 

DO  100  K=1,L2 

N=K»L(1) 

IF(A(69.N) .LT.0.0)  GO  TO  100 

IF(X.LT.A(75.N) )  GO  TO  16 
C      TO  ABOVE  16 — *  SET  CONTROLS  FOR  SPECIAL  COMPUTATIONS  DURING  BUS 
C      FAULTS. 

M=IFIX(A(77.N) ♦0.00000001) 

IF(X.GT.(A(75.N)*D(31) ) )  GO  TO  8 

IF(M.LE.O)  GO  TO  16 

IF(M-3)  4,5,7 

4  IF(M-2)  16,7,7 

5  VV(21,K)=10.0 
VV(20.K>=10.0 

7  VV(19,K)=10.0 
GO  TO  16 

8  IF(X.GT.(A(76.N)*D(31> > >  GO  TO  16 
IF(M.LE.O)  GO  TO  16 
IF(M-3)  12.13,15 

12  IF(M-2)  16.15.15 

13  B(99,N)=0.0 
GO  TO  16 

15  VV(13.K)=0.0 
VV(16»K)=0.0 
VV(19.K>=0.0 
VV(6.K)=0.0 

16  IF(B(99.N) .GT.0.0)  GO  TO  19 
C      TO  18—,  SET  THE  ARRAY  VV  TO  ZERO. 

DO  18  M=l,21 

18  VV(M,K)=0.0 
B(99,N)=10.0 

19  IF(D<31) .LT. (0.1»C(1) ) )  GO  TO  100 
C      TO  21  — .  TRANSFER  POINTS. 

DO  20  M=l.ll 

IF(M.EQ.3.0R.M.EQ.6.0R.M.EQ.9>  GO  TO  20 
VV(M.K)=VV(M*1.K) 

20  CONTINUE 
VV(3.K)=X 
VV(6.K)=B(77.N) 
VV(9,K)=B(78,N) 

21  VV(12.K)=B(79.N) 
DO  35  1=1,3 
IF(VV(I*18,K) .LE.0.0)  GO  TO  23 

C      TO  ABOVE  23—,  SPECIAL  COMPUTATIONS  DURING  BUS  FAULTS. 
j=?»I»63 
B(J,N)=-100.0 
B(J*1.N)=-100.0 
B(I»70.N)=-100.0 
GO  TO  35 
23  J=3«I*3 
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Jl=j-i 

TO  29—,  COMPUTATION  OF  PERCENT  FREQUENCY  ERRORS. 

IF(VV(J»K) .NE.0.0)  GO  TO  25 

XF=VV(3»K) 

GO  TO  27 
25  IF( <VV(J,K>*VV(J1,K) >.GE.0.0)  GO  TO  30 

XE=VV<2»K)-VV(J1»K)»(VV<3»K)-VV(2»K> > / ( VV ( J,K) -VV ( Jl »K) ) 
27  J2=I*12 

IF(VV(J2»K) .LE.0.0)  GO  TO  29 

B(64»N)=-100.0*0.5/(0.6»(XE-VV(J2,K> ) ) 

B(I*70,N)=B(64,N) 

29  VV(J2,K)=XE 

TO  35—,  COMPUTATION  OF  PERCENT  ERRORS  OF  PEAKS. 

30  J2=I*15 
VV(J2.K)=VV(J2,K>»1.0 
IF(VV(J2,K> .LT.3.0)  GO  TO  35 
J2=J-2 

IF( ( (VV(J1,K)-VV(J2.K> )«<VV(J1,K)-VV<J»K) ) ) .LT.0.0)  GO  TO  35 

W1=VV(J2,K)»<VV(3.K>-VV<2,K) ) 

W?=VV(J1«K)«(VV(1.K>-VV(3,K) ) 

W3=VV(J,K)«(VV(2,K)-VV(1,K> ) 

TE1=W1»(VV(3,K) *VV(?,K) ) 

TE2=W2*(VV(l,K)»VV(3fK) ) 

TE3=W3«MVV(2.K)*VV(1,K)  ) 

TE4=Wl*W2*W3 

XE=0.5»(TE1»TE2»TE3)/TE4 

YE=VV(J2,K>»<XE-VV(2.K> ) • (XE-VV (3,K) ) / ( VV < 1 ,K) -VV <2,K> )/(VV(l,K>- 
1VV(3.K> )*VV(J1,K)*(XE-VV(1,K))«<XE-VV(3,K>)/<VV(2,K)-VV(1,K) )/(VV< 
22,K)-VV(3,K) >*VV( J.K>» (XE-VV (1»K) ) » (XE-VV < 2,K > ) / ( VV (3,K > -VV <  1  »K> )/ 
3<VV(3,K)-VV(2,K) ) 

IF(YE.GE.VV(J,K> >  GO  TO  33 

J=2»I*64 

B(63,N)=-100.0«(YE/A(68,N)*1.0) 

GO  TO  34 

33  J=2»I*63 

B (63,N) =1 00.0* (YE/A (68, N) -1.0) 

34  B(J,N)=B(63,N) 

35  CONTINUE 

IF(VV(21,K) .LE.0.0)  GO  TO  100 

SPECIAL  COMPUTATION  DURING  THREE  PHASE  8US  FAULTS. 
B(63,N)=-100.0 
B(64,N)=-100.0 
100  CONTINUE 
RETURN 
END 
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SUBROUTINE  TRAN 
C      COMPUTE  THE  PHASE  AND  LINE-TO-LINE  VOLTAGES  AT  THE  SECONDARIES  OF 
C      DISTRIBUTION  TRANSFORMERS.  AND  THE  AVERAGE  THREE-PHASE  POWERS  AND 
C      THE  PEAK  REACTIVE  POWERS  PER  PHASE  OF  THEIR  LOADS. 

COMMON  A,B.B0.C.CD,D»EG.EP.F.G.GB,Q.VV»W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 
1.LP1.LP2.LP3. TITLE. HEAD 

DIMENSION  A (80.35) .B (99.35) .80(8) »C (50) .CD (3.4) .0 ( 120) .EG (50) * EP (5 
10).F(316) .G(21.35) .GB (3.4.9) ,Q (316) ,VV (21 .9) ,W (6.6.9) .XL (6. 10.35) ♦ 
2XM<6*10.9)»Y(316)»Z(6.6t35).L(134)«LGl(50>*LG2(50>*LG3(50).LPl(50> 
3.LP2(50).LP3(50).TITLE(39),HEAD(39) 

Nl  *  L(l)  ♦  L<2)  ♦  L(3)  ♦  1 

N2  =  Nl  ♦  L(4)  -  1 

DO  10  I  =  N1.N2 

L8  =  IFIX(AdO.I)  ♦  0.00000001) 

J  =  L(I*50) 

Jl  =  J»l 

J2  =  J*2 

IF  (  X.LT.A(8.I) .0R.X.GT.A(9.I) )  GO  TO  1 

IF  (L8  .LE.  3  )  GO  TO  1 

B(4,I)  =  0.5«(B(34,I)»(F(J)»F(J1))*B(31.I)»(Y(J)»Y(J1))) 

B(5.I)=B(4.I) 

B(6.I)=B(34.I)»F(J2)»B(31.I)»Y(J2) 

GO  TO  2 

1  B(4.I)=B(34.I)«F(J)*B(31.I)»Y(J) 
8(5.1)  =  B(35»I)»F(J1)«8(32.I)»Y(J1) 
B(6.I)  =  B(36.I)»F(J2)»B(33.I)»Y(J2) 

2  8(7, I)  =  B(4.I)-B(5,I) 
8(8.1)  =  B(5.I)  -  B(6,I) 
B(9.I)  =  B(6.I)  -  B(4.I) 

8(10.1)  =  0.001«(  Y(J)»B(4.I)^Y(J1)»B(5.I)*Y(J2)»B(6.I) ) 


10 


8(11,1)  = 
CONTINUE 
RETURN 
END 


1.9245E-4«(  Y(J)»B(8.I)»Y(J1)»B(9.I)*Y(J2)*B(7.I) ) 
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FREQUENCIES  OF  THE 
DISTRIBUTION  TRANS- 


SUBROUTINE  VMAXTR 
C      COMPUTE  THE  PERCENT  ERRORS  OF  THE  PEAKS  AND 
C      LINE-TO-LINE  VOLTAGES  AT  THE  SECONDARIES  OF 
C      FORMERS 

COMMON  A,B.B0.C»CD,D.EG,EP»F,G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 
1.LP1.LP2.LP3.TITLE.HEAD 

DIMENSION  A (80 .35) .B (99.35)  .80(8) .C<50> .CD (3.4) .0(120) .EG (50) »EP(5 
10).F(316)«G(21.35).GB(3.4»9).Q(316)»VV(21.9)»W(6»6.9).XL(6.10.35). 
2XM(6,10.9).Y<316) ,Z ( 6.6. 35) ,L ( 134) .LG1 (50 ) .LG2 (50 ) »LG3(50).LP1 (50) 
3»LP2(50) .LP3<50) .TITLE (39) *  HEAD (39) 
Nl  =  L<1)  ♦  L(2)  ♦  L(3)  ♦  1 
N2  =  Nl  ♦  L<4)  -  1 
DO  200  I  =  Nl.  N2 

IF  (  (  X  -  A(8«I)).LT.  0.0  )  GO  TO  80 
C      TO  ABOVE  80  —  .  SET  CONTROLS  FOR  SPECIAL  COMPUTATIONS  DURING  FAULTS 
C      AT  SECONDARIES. 

L8  =  IFIX  (  A(IO.I)  ♦  0.00000001  ) 
IF  (  (  X-A(8.I)  -  0(31))  ,GT.  0.0  )  GO  TO  40 
IF  (  L8  .LE.  0  )  GO  TO  80 
IF  (  L8  -  3  )  10.  20.  30 
10  IF  (  L8  ,GE.  2  )  GO  TO  30 
GO  TO  80 
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6(21,1) 
G(20.I) 
G(19,I) 
GO  TO  80 
(  (  X 


10.0 
10.0 
10.0 


IF 
IF 
IF 
IF 
IF 


A(20.I)  = 
GO  TO  80 
GU3.I)  = 
GU6.I)  = 
G(19,I)  = 
G(6,I)  = 


A(9,I) ) 
(X-  A(9,I)  ■ 
L8  .LE.  0  ) 
L8  -  3  )  50. 
L8  .GE.  2  ) 
0.0 


.LT.  0.0  )  GO  TO 
0(31))  .GT.  0.0 

GO  TO  80 
60.  70 

GO  TO  70 


80 
)  GO 


TO  80 


0.0 
0.0 
0.0 
0.0 


0.0  )  GO  TO  100 
ARRAY  G  TO  ZERO. 


0.0  )  GO  TO  200 


IF  (  A(20.I)  .GT 

TO  90—.  SET  THE 

A(20»I)  =  10.0 

DO  90  J  =  1.21 

G(J.I)  =  0.0 

CONTINUE 

IF  (  (D(31)  -  0.1*C(1) i  .LT. 

TO  120  —  .  TRANSFER  POINTS. 

DO  110  J  =  1.12.3 

Jl  =  J*l 

G(J,I)  =  G(J1.I) 

GUI. I)  =  G(J1*1.I) 

CONTINUE 

G(3»I)  =  X 

DO  120  J 

G(3«J.I) 

CONTINUE 

DO  190  J  =  1.3 

IF  (  G(J*18.I)  .LE.  0.0  )  GO  TO  130 

TO  ABOVE  130—.  SPECIAL  COMPUTATIONS  DURING  FAULTS  AT  SECONDARIES. 

K  =  2«J  ♦  12 

B(K.I)  =  -100.0 


2.4 

B( J*5.I) 
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B(K«ltI)  =  -100.0 

B(J*19,I)  =  -100.0 

GO  TO  190 
130  K  =  3«J  ♦  3 

Kl  =  K  -  1 

TO  160—.  COMPUTATION  OF  PERCENT  FREQUENCY  ERRORS. 

IF  (  G(K»I)  .NE.  0.0  )  60  TO  140 

XE  *  G(3.I) 

GO  TO  150 
140  IF  (  (G(K.I)»G(K1,I) )  .GE.  0.0  )  GO  TO  170 

XF  =  G(2»I>  -  G(K1»I)*(G(3»I)  -  G (2. I ) ) / (G(K» I )  - 
150  K2  *  J  ♦  12 

IF  (  G(K2»I)  .LE.  0.0  )  GO  TO  160 

B(J*19,I)  =  0.5/(XE  -  G(K2.I>) 

BU3.I)  =  B(J*19.I)/0. 6-100.0 

B(J*19»I)  a  B(13»I) 
160  G(K2.I)  =  XE 

TO  190— »  COMPUTATION  OF  PERCENT  ERRORS  OF  PEAKS. 
170  K2  »  J  ♦  15 

G(K2»I)  =  G(K2,I)  ♦  1.0 

IF  ((  G(K2.I)  -  3.0)  .LT.  0.0  )  GO  TO  190 

K2  =  K  -  2 

IF  (  <<G(K1»I>  -  G(K2.I))«(G(K1»I)  -  G<K«I>))  .LT. 

Gl  =  G(K2»I)  *(G(3,I)  -  G<2»D) 

G2  =  G(K1»I)»(G(1.I)  -  G(3»I>) 

G3  =  G(K,I)*(G(2*I)  -  G<1»D) 

TE1  =  G1«(G(3»I)  ♦  G(2»I) ) 

TE2  =  G2«(G{1.I)  ♦  G(3.I) ) 

TE3  =  G3*(G(2»I)  ♦  G(l.I) ) 

TE4  =  Gl  ♦  G2  ♦  G3 

XE  =  0.5«MTE1  ♦  TE2  ♦  TE3)/TE4 

YE  =  G(K2.I)«(XE  -  G(2»I))»(XE  -  G (3» I ) ) / (G ( 1 ♦ I )  - 

1  <G(1»I)  -  G(3»I>)  ♦  G(K1»I)»(XE  -  G(1»I))»<XE  -  G 

2  (G(2.I)  -  G(ltl) )/(G(2»I)  -  G<3.1))  ♦  G(KtI)*<XE  - 
3«(XE  -  G(2»I) )/(G(3,I)  -  G(l.I) )/(G(3»I)  -  G(2.I>) 

IF  (YE.GE.  G(K.D)  GO  TO  180 

K  =  2»J  ♦  13 

BU2.I)  =  -100.0*(YF/A(12»I)  ♦  1.0) 

B(K»I)  =  B(12»I) 

GO  TO  190 
180  K  =  2»J  ♦  12 

B(12.I)  =  100.0»(YE/A(12.I)  -  1.0) 

B(K»I)  =  B(12»I) 
190  CONTINUE 

IF  (  G(21.I)  .LE.  0.0  )  GO  TO  200 

SPECIAL  COMPUTATION  DURING  THREE  PHASE  FAULTS  AT  S 

B(12,I)  =  -100.0 

B(13,I)  =  -100.0 
200  CONTINUE 

RETURN 

END 
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SUBROUTINE  DUPLEX  17  0000 

RETURN 

END 


126 

SUBROUTINE  VMAXDR  I8  000° 

RETURN 

END 
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SUBROUTINE  YPRIM2  19  0000 

C      THIS  IS  A  MAIN  SUBROUTINE  IN  THE  COMPUTATION  OF  THE  DERIVATIVES  OF  19  0001 

C      THE  DEPENDENT  VARIABLES  OF  SUB2.  19  0002 

C      IN  THIS  COMPUTATION,  THE  VARIOUS  COMPONENTS  OF  THE  PLANT  ARE  TRE-  19  0003 

C      ATED  IN  THE  FOLLOWING  ORDER— ROTATING  MACHINES  ON  MAIN  BUS,  DIS-  19  0004 

C      TRIBUTION  TRANSFORMERS,  COMMERCIAL  POWER  SYSTEM,  DUPLEX  REACTOR  19  0005 

C      AND  HV  POWER  SUPPLIES.  REGULATORS  OF  GENERATING  UNITS,  ALTERNATORS  19  0006 

C      OF  MG  SETS  AND  THEIR  REGULATORS,  AND  SHAFTS  OF  MG  SETS  AND  INDUCT-  19  0007 

C      ION  MOTORS.  19  0008 

C      DURING  THIS  COMPUTATION,  VARIOUS  OTHER  VARIABLES  ARE  COMPUTED,  19  0009 

C      SUCH  AS  BUS  VOLTAGES*  POWERS.  TORQUES.  ETC.  19  0010 

COMMON  A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  19  0011 

1.LP1.LP2.LP3.TITLE.HEAD  19  0012 

DIMENSION  A (80.35) ,B(99,35) ,BO(8) .C (50) .CD < 3.4) ,D ( 120 ) »EG<50 ) »EP (519  0013 
10).F(316).G(21.35).GB(3.4.9),0(316).VV(21.9).W(6.6.9),XL(6.10.35).19  0014 
2XM(6»10.9> .Y (316) .Z (6.6.35) .L( 134) .LG1 (50 > .LG2 (50 ) «LG3(50) ,LP1 (50) 19  0015 

3.LP2(50> .LP3(50).TITLE(39) .HEAD<39>  19  0016 

IF(L<33> )  53,1,53  19  0017 

1  NS=L(1>*L(2)*L(3)  19  0018 

IF  (L(2)*L(3))  105,105,100  19  0019 

C      TO  77 — ,  COMPUTE  THE  DERIVATIVES  OF  THE  WINDING  CURRENTS  OF  THE  19  0020 

C      ROTATING  MACHINES  CONNECTED  TO  THE  MAIN  BUS,  AND  THE  DERIVATIVES  19  0021 

C      OF  THE  DEPENDENT  VARIABLES  OF  DISTRIBUTION  TRANSFORMERS.  THE  COM-  19  0022 

C      MERCIAL  POWER  SYSTEM  AND  THE  DUPLEX  REACTOR  AND  HV  POWER  SUPPLIES.  19  0023 

C      TO  104—,  COMPUTE  THE  ELECTRICAL  SPEEDS  OF  MOTORS.  THE  RERCENT  19  0024 

C      SPEED  ERRORS  OF  SYNCHRONOUS  MOTORS  AND  THE  PERCENT  SLIPS  OF  19  0025 

C      INDUCTION  MOTORS.  19  0026 

100  DO  104  1=1. NS  19  0027 
LI=L(I*99)  19  0028 
GO  TO  (104.101.102) , LI  19  0029 

101  J=L(I*50)»7  19  0030 
B(5.I)  =  A(15,I)»Y(J)  19  0031 
B(4,I)=100.0»(B(5.I)/377. 0-1.0)  19  0032 
GO  TO  104  19  0033 

102  J=L(I*50)*6  19  0034 
B(5.I)=A(7.I)«Y(J)  19  0035 
B(4.I)  =  100.0«(1.0-B(5.I)/377.0)  19  0036 

104  CONTINUE  19  0037 

105  IF(NS.LE.O)  GO  TO  107  19  0038 
C  TO  106 — ,  SET  UP  THE  INDUCTANCE  AND  ((IMPEDANCE))  MATRICES  OF  RO-  19  0039 
C      TATING  MACHINES.  19  0040 

CALL  LMAT  19  0041 

CALL  IMAT  19  0042 

12  IF( (L(1)*L(2) ) .LE.O)  GO  TO  107  19  0043 

CALL  SAT  19  0044 

106  CALL  SATEF  19  0045 

107  CALL  RLMB  19  0046 
C  TO  111  — .  COMPUTE  THE  CURRENTS  OF  THE  RL  LOAD  AND  OF  THE  TOTAL  19  0047 
C      LOAD  OF  THE  MAIN  BUS.  19  0048 

DO  108  1=22.24  19  0049 

D(I*6)=0.0  19  0050 

108  D(I)=0.0  19  0051 
IF(NS.LE.O)  GO  TO  109  19  0052 
DO  18  1=1. NS  19  0053 
J=L(I*50)  19  0054 

16  D(22)=D(22) *Y(J)  19  0055 

D(23)=D(23)*Y(J*1)  19  0056 

D(24)=D(24)*Y(J*2)  19  0057 

IF(I-Ld))  17.17.18  19  0058 
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17 


18 
109 


19 


110 


111 

20 


112 


200 


304 


305 


306 


D(28)=D(28)*Y(J> 

D(29)=D(29)»Y(J*1) 

D(30)=0(30MY(J*2) 

CONTINUE 

IF  (L(5) .LE.O)  GO  TO  19 

NU=NS*L<4)*1 

J=L(NU*50> 

D(22)=D(22)*Y(J) 

D(23)=D(23)*Y(J*1> 

D(24)=D(24)*Y(J*2> 

D(28)=D(28)*Y(J> 

D(29)=D(29)*Y(JM> 

D(30)=D(30MY(J»2> 

IF  (L(6) .LE.O)  GO  TO  110 

J=L(31)-5 

0(22)=D(22)»Y(J) 

0(23)=D(23)*Y(J*1) 

D(24)=D(24)*Y<J»2> 

IF(L(4) .LE.O)  GO  TO  20 

N1=NS*1 

N2=N1*L(4>-1 

DO  111  I=N1.N2 

J=L(I*50> 

B(1.I)=(Y(J*2)-Y(J) )/A(3.I) 

8(2.I)  =  (Y<J>-Y<J-»1)  )/A(3.I> 

B(3.I)  =  (Y(J-»1)-Y(J*2) )/A(3.I) 

D(22)=D(22)»B(1,I> 

D(23)=D(23)»B(2»I) 

D(24)=D(24)*B(3.I) 

IF(NS.LE.O)  GO  TO  112 

CALL  XLMAT 

CALL  TRIAS 

TO  ABOVE  76—.  SET  UP  THE  MATRIX 

THE  THREE  EQUATIONS  RELATING  THE 

LOAO  OF  THE  MAIN  BUS. 

DO  200  1=1.3 

DO  200  J=1.4 

CD (I.J)  =  0.0 

IF(NS.GT.O)  CALL  CDMACH 

IF(L(4).GT.O)  CALL  CDTRAN 

IF(L(5) .GT.O)  CALL  CDCOMP 

IF  (L(6).GT.O)  CALL  CDDR 

IF(X.LT.C(9) .OR.X.GT.C(IO))  GO  TO  306 

IF  (L<8)  -  3)    306,306.304 


CD  CONTAINING  THE  COEFFICIENTS  OF 
CURRENT  DERIVATIVES  OF  THE  RL 


TO  305--, 

ADJUST  1 

MATRIX  CD  DURING  L 

CD(2.1)  = 

CD(2.1) 

♦  1.0  ♦  CD (1,1) 

CD(2.2)  = 

CD(2.2) 

♦  1.0  ♦  CD(1.2) 

CD(2.3)  = 

CD(2,3) 

♦  CDU.3) 

CD(2.4)  = 

CD(2.4) 

♦  CDU.4) 

CD(3.3)  = 

CD(3.3) 

♦  1.0 

CD(l.l)  = 

D(19) 

CD<1.2)  = 

-D(20) 

CD(1,3)  = 

0.0 

CD(1,4)  = 

D(17)*D(23)  -  D(16)»D(22) 

GO  TO  76 

CD (1,1)  = 

CD (1,1) 

♦  1.0 

CD (2, 2)  = 

CD(2,2) 

♦  1.0 

CD(3.3)  = 

CD(3,3) 

♦  1.0 

LINE-TO-LINE  FAULT  ON  MAIN  BUS. 


76  CALL  MBSOLV 


19  0059 
19  0060 
19  0061 
19  0062 
19  0063 
19  0064 
19  0065 
19  0066 
19  0067 
19  0068 
19  0069 
19  0070 
19  0071 
19  0072 
19  0073 
19  0074 
19  0075 
19  0076 
19  0077 
19  0078 
19  0079 
19  0080 
19  0081 
19  0082 
19  0083 
19  0084 
19  0085 
19  0086 
19  0087 
19  0088 
19  0089 
19  0090 
19  0091 
19  0092 
19  0093 
19  0094 
19  0095 
19  0096 
19  0097 
19  0098 
19  0099 
19  0100 
19  0101 
19  0102 
19  0103 
19  0104 
19  0105 
19  0106 
19  0107 
19  0108 
19  0109 
19  0110 
19  0111 
19  0112 
19  0113 
19  0114 
19  0115 
19  0116 
19  0117 
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C      TO  77  —  .  EVALUATE  THE  DERIVATIVES.  19  0118 

IF(NS.GT.O)  CALL  FMACH  19  0119 

IF(L<4> .GT.O)  CALL  FTRAN  19  0120 

IF  (L(5).GT.0>  CALL  FCOMP  19  0121 

77  IF  (L(6).GT.O)  CALL  FDR  19  0122 
C  TO  78--,  COMPUTE  THE  PHASE  AND  LINE-TO-LINE  VOLTAGES  OF  THE  MAIN  19  0123 
C      BUS.  19  0124 

D(35)=D(16)»D(22)*D(19)»D(25)  19  0125 

D(36)=D(17)«D<23)*D(20)»D(26)  19  0126 

D(37)=D(18)«D(24)*D(21>»D(27)  19  0127 

D(38)  =  0(35)  -  0(36)  19  0128 

D(39)  =  0(36)  -  D(37)  19  0129 

78  D(40>  =  0(37)  -  D<35)  19  0130 
D(3)=0.0  19  0131 
D(4>=0.0  19  0132 
IF(L(5).LE.0)  GO  TO  41  19  0133 

C      TO  79—.  COMPUTE  THE  AVERAGE  THREE-PHASE  POWER  AND  THE  PEAK  REACT-  19  0134 
C      IVE  POWER  PER  PHASE  OF  THE  COMMERCIAL  POWER  SYSTEM*  AND  THEIR  CON-  19  0135 

C      TRIBUTIONS  TO  THE  LOAD  OF  THE  MAIN  BUS.  19  0136 

J=L(NU*50)  19  0137 

D(5)=0.001»(D(35)«Y(J)»D(36)»Y(J*1)*D(37)»Y(J»2))  19  013R 

0(6)=1.9245E-4»(Y(J)*D(39)*Y(J*1)*D(40)^Y(J*2)*D(38) )  19  0139 

D(3)=D(3)*D(5)  19  0140 

79  D(4)=D(4)*D(6)  19  0141 
41  IF(Ld).GT.O)  CALL  FREG  19  0142 

IF(L(2) .GT.O)  CALL  YPRIMG  19  0143 

IF(NS.GT.O)  CALL  FMECH  19  0144 

53  L(33)=0  19  0145 

RETURN  19  0146 

END  19  0147 
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SUBROUTINE  LMAT 
C      SET  UP  THE  INDUCTANCE  MATRICES*  WITHOUT  FIELD  SATURATI 
C      OF  THE  ROTATING  MACHINES  CONNECTED  TO  THE  MAIN  BUS. 

COMMON  A,B»BO»C,CD,D,EG»EP,F,G,GB,Q»VV»W,X»XL»XM»Y»Z»L 
1,LP1»LP2,LP3,TITLE,HEAD 

DIMENSION  A (80* 35) ,R (99,35) ,BO(8),C(50) ,CD(3,4> ,D(120> 
10),F<316),G(21»35),GB<3,4,9),Q(316),VV<21»9>»W(6»6,9>» 
2XM(6,10,9> ,Y(316),Z(6»6,35),L<134) »LG1 (50) tLG2(50) »LG3 
3»LP2<50) »LP3(50) .TITLE (39) .HEAD (39) 

CC=0. 866025404 

NS=L(1)*L(2)*L(3) 

DO  10  1=1, NS 

LI=L(I»99) 

GO  TO  (1,1,2) ,LI 

1  J=L(I*50)*6 
GO  TO  4 

2  J=L(I*50)*5 

4  XL(1,1,I)=A(1,I) 
XL(2,1,I)=-A(2,I) 
XL(3,1,I)=XL(2,1,I) 
XL(2,2,I)=XL(1,1,I) 
XL(3,2,I)=XL(2,1,I) 

XL(3,3,I)=XL(1,1,I) 

B(19,I)=C0S(Y(J)) 

B(20,I)=SIN(Y(J) ) 

C1=0.S»B(19,I) 

C2=CC«B(19,I> 

C3=0.5«B(20,I) 

C4=CC«B(20,I> 


8(21, I 

B(22,I 

B(23,I 

B(24,I 

XL(4,1 

XL(4,2 

XL(4,3 

GO  TO 

XL(4,4 

XL(5,1 

XL(5,2 

XL(5,3 

GO  TO 

XL(4,4 

XL(5,1 

XL(5,2 

XL(5,3 

XL(5,4 

XL(5,5 

XL<6,1 

XL(6,2 

XL(6,3 

IF(A(3 


=-Cl-C4 

=-C3»C2 

=-Cl»C4 

=-C3-C2 

I)=-A(4,I)»B(19,I) 

I)=-A(4,I)»B(23,I) 

I)=-A(4,I)»B(21,I) 

6,6,5) ,LI 

I)  =  A(3,I) 

I)=A(4,I)*B(20»I) 

I)=A(4,I)»B(24,I) 

I)=A(4,I)*B(22.I> 


8 


I)  =  A(7,I) 

I)=-A(5»I)*B(19,I) 

I)=-A(5,I)*B(23,I) 

I)=-A(5»I)*B(21»I) 

I)=A(8,I) 

I)=A(9,I) 

I)=A(6,I)»B(20,I) 

I)=A(6,I)*B(24,I) 

I)=A(6,I)»B(22,I) 

I))  8,8,7 

TO  ABOVE  8,  SALIENCY  EFFECTS  FOR  SYNCHRONOUS  MACHINES. 
B(25,I)=2.0»B(19,I)*B(19,I)-1.0 
B(26,I)=2.0»B(19,I)»B(20,I) 
C1=0.5«B(25,I) 
C2=CC»8(25,I) 
C3=0.5»B(26,I) 
C4=CC»B(26,I) 


20 

0000 

ON  EFFECTS,   20 

0001 

20 

0002 

,LG1,LG2,LG3  20 

0003 

20 

0004 

,EG(50) ,EP(520 

0005 

XL(6,10,35) ,20 

D006 

(50) ,LP1 (50)20 

D007 

20 

D008 

20 

0009 

20 

0010 

20 

0011 

20 

3012 

20 

0013 

20 

0014 

20 

0015 

20 

0016 

20 

0017 

?0 

001B 

20 

0019 

20 

0020 

20 

0021 

20 

0022 

20 

0023 

20 

0024 

20 

0025 

20 

0026 

20 

0027 

20 

0028 

20 

0029 

20 

0030 

20 

0031 

20 

0032 

20 

0033 

20 

0034 

20 

0035 

20 

0036 

20 

0037 

20 

0038 

20 

0039 

20 

0040 

20 

0041 

20 

0042 

20 

0043 

20 

0044 

20 

0045 

20 

0046 

20 

0047 

20 

0048 

20 

0049 

20 

0050 

20 

0051 

20 

0052 

20 

0053 

20 

0054 

20 

0055 

20 

0056 

20 

0057 

20 

0058 
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B(27,I 

8(28*1 

8(29,1 

B(30,I 

XL(1»1 

XL(2f 1 

XL (3,1 

XL(2,2 

XL(3,2 

XL(3,3 

XL(1,2 

XL(1,3 

XL (1,4 

XL(1,5 

XL(2,3 

XL(2,4 

XL(2,5 

XL(3,4 

XL(3,5 

XL(4,5 

GO  TO 

XL(1,6 

XL(2,6 

XL(3,6 

XL(4,6 

XL(5,6 

CONTINUE 

RETURN 

END 


C1-C4 
C3»C2 
C1^C4 
C3-C2 
=XL(1 
=XL(2 
=XL(3 
=XL<2 
=  XL<3 
*XL(3 
=  XL(2 
=XL(3 
»XL<4 
=XL(5 
=XL(3 
=XL(4 
=  XL(5 
=  XL(4 
=  XL(5 
=XL(5 
9,10) 
=XL(6 
=XL(6 
=  XL<6 
=XL<6 
=XL(6 


♦A(3,I)»B(25,I 
♦  A(3,I)*>B(29,I 
♦A(3.I)»B(27,I 
♦A(3,I)»B(27,I 
♦A(3,I)»B(25,I 
♦A(3,I)»B(29,I 


20  0059 
20  0060 
20  0061 
20  0062 
20  0063 
20  0064 
20  0065 
20  0066 
20  0067 
20  0068 
20  0069 
20  0070 
20  0071 
20  0072 
20  0073 
20  007^ 
20  0075 
20  0076 
20  0077 
20  0078 
20  0079 
20  0080 
20  0081 
20  0082 
20  0083 
20  0084 
20  0085 
20  0086 
20  0087 
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SUBROUTINE  IMAT 
C      SET  UP  THE  ((IMPEDANCE))  MATRICES*  WITHOUT  FIELD 
C      FECTS.  OF  THE  ROTATING  MACHINES  CONNECTED  TO  THE 
COMMON  A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM. 
1.LP1.LP2.LP3. TITLE, HEAD 

DIMENSION  A (80.35) ,B (99.35) .BO (8) »C (50) .CD (3. 4) .D 
10).F<316>.G<21.35).GB(3.4.9).Q(316>.VV(21.9).W<6. 
2XM (6. 10.9) .Y(316).Z (6.6.35) .LU34)  .LG1 (50).LG2(50 
3.LP2(50).LP3(50).TITLE(39),HEAD(39) 
NS=L(1)*L<2>*L(3) 
DO  9  1=1. NS 
LI=L(I*99) 
GO  TO  (1.1. 4). LI 

1  CONTINUE 
IF(A(3.D)  3.3.2 

C      TO  ABOVE  3.  SALIENCY  EFFECTS  FOR  SYNCHRONOUS  MACH 

2  CC=-2.0»A(3.I)«B(5,I) 
»I)=CC»B(30.I) 
»I)=CC»B(28,I) 
.I)=CC*B(26.I) 
»I)=A(11.IW(3.2.I> 
»I)=A(11.I)*Z(3.1.I) 
♦I)=A(11.I)*Z(2.1.I) 

4 
«I)=A(11.I) 
.I)=0.0 
.I)=0.0 
»I)=A(11*I) 
♦I)=0.0 
*I)=A(11.I) 

♦I)»B(5.I) 
.I)=CC»B(20.1) 
.I)=CC»B(24.I) 
♦I)=CC«B(22.I) 

(5.5.6) .LI 

*I)*B(5.I) 
.I)=CC»B(20.I> 
♦I)=CC»B(24.I) 
»I)=CC»B(22.I) 

.I)*B(5.I) 
.I)=CC*B(19.I) 
.I)=CC»8(23.I) 
♦  I)=CC*>B(21.I) 

7 

»I)«B(5.I) 
.I)=CC«B(19,I) 
»I)=CC»8(23.I) 
»I)=CC»B(21.I> 
.I)=Z(4,1.I) 
.I)=Z(5,1.I) 
♦I)=Z(4.2,I) 
»I)=Z(5.2.I) 
♦I)=Z(4.3,I) 
»I)=Z(5.3.I) 

(8.8.9) .LI 
.1)  =  Z(2.1.I) 
.1)  =  Z(3.1.I) 
.1)  =  Z(3,2.I) 
.I)*Z(6.1.I) 


Z(2, 
Z(3i 
Z(3.2, 

zd.i 

Z(2.2i 

Z(3.3i 

GO  TO 

Z(l*l( 

Z(2.1 

Z(3.1 

Z(2.2i 

Z(3.2i 

Z(3.3i 

CC=A<< 

Z(4.1 

Z(4.2, 

Z(4.3< 

GO  TO 

CC=A(? 

Z(5.1. 

Z(5.2( 

Z(5.3i 

CC=A(< 

Z(6.1 

Z(6*2< 

Z(6.3< 

GO  TO 

CC=A<* 

Z(5.1. 

Z<5.2, 

Z(5.3, 

Z(1.4, 

Z<1»5, 

Z(2.4, 

Z(?.5i 

Z(3.4, 

Z(3.5i 

GO  TO 

Z(l»2i 

Z(1.3i 

Z(2.3, 

Z(1.6i 


21  0000 

SATURATION  EF-     21  0001 

MAIN  BUS.  21  0002 

Y.Z.L.LG1.LG2.LG3  21  0003 

21  000<* 
(120) »EG(50) .EP(521  0005 
6.9).XL(6.10.35> .21  0006 
).LG3<50) .LP1 (50)21  0007 
21  0008 

21  0009 

21  0010 
21  0011 

21  0012 

21  0013 

21  0014 

INES.  21  0015 

21  0016 

21  0017 

21  0018 

21  0019 

21  0020 

21  0021 

21  0022 

21  0023 

21  0024 

21  0025 

21  0026 

21  0027 

21  0028 

21  0029 

21  0030 

21  0031 

21  0032 

21  0033 

21  0034 

21  0035 

21  0036 

21  0037 

21  0038 

21  0039 

21  0040 

21  0041 

21  0042 

21  0043 

21  0044 

21  0045 

21  0046 

21  0047 

21  0048 

21  0049 

21  0050 

21  0051 

21  0052 

21  0053 

21  0054 

21  0055 

21  0056 

21  0057 

21  0058 


Z(2»6»I)=Z(6»2,I) 

Z(3.6tI)=Z(6»3.I) 

CONTINUE 

RFTURN 

END 
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21  0059 

21  0060 

21  0061 

21  0062 

21  0063 


v 
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SUBROUTINE  SAT  22  0000 

C  DETERMINE  IF  THE  FIELDS  OF  THE  SYNCHRONOUS  MACHINES  CONNECTED  TO  22  0001 
C  THE  MAIN  BUS  ARE  SATURATED.  AND  COMPUTE  THE  FIELD  FLUX  LINKAGES.  22  0002 
C  THE  EQUIVALENT  FIELD  SATURATION  CURRENTS.  AND  THE  DERIVATIVES  OF  22  0003 
C      THE  LATTER  WITH  RESPECT  TO  THE  FORMER.  22  0004 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  22  0005 
1.LP1.LP2.LP3. TITLE. HEAD  22  0006 

DIMENSION  A (80.35) .R (99.35) .BO (8) .C(50) .CD (3. 4) »D ( 120) .EG (50 ) »EP(522  0007 

10) .F(316) »G(21.35) »GB (3.4.9) .0(316) .VV (21 .9) .W (6.6.9) .XL (6. 10.35) .22  0008 

2XM (6*10*9) *Y(316) *Z (6*6.35) *L ( 134) *LG1 (50) .LG2(50) .LG3(50) .LP1 (50)22  0009 

3.LP2<50) ,LP3(50) .T ITLE (39) .HEAD (39) 

NT=L(1)*L(2) 

DO  7  1=1, NT 

J=L(I*50)-1 

3  B(6.I)=0.0 
DO  4  K=l*5 
M=J*K 

4  B(6.I)=B(6*I)*XL(4.K»I)»Y(M) 
IF(B(6.I)-A(16,I) )  5.5.6 

5  B(7,I)=0.0 
B(8*I)=0.0 
L(I*10)=1 
GO  TO  7 

6  Cl«A(16*I)-0.5/(A(17»I)»A(7*I) ) 
C2=C1»C1*B(6,I)/(A(17*I)»A(7.I) ) -A ( 16. I ) »A ( 16* I ) 
C2*SORT(C2) 
B(6.I)=C1*C2 

B(7.I)=A(17.I)»(B(6.I)-A(16.I))»(B(6.I)-A(16.I)) 
B(8.I)=2.0*A(17.I)»(B(6.I)-A(16.I) ) 
L(I*10>=2 

7  CONTINUE 
RETURN 
END 


22  1 

3010 

22 

0011 

22 

0012 

22 

0013 

22 

0014 

22 

0015 

22 

0016 

22 

0017 

22 

0018 

22 

0019 

22 

0020 

22  0021 

22 

0022 

22 

0023 

22 

0024 

22 

0025 

22 

0026 

22 

0027 

22 

0028 

22  0029 

22 

0030 

22 

0031 

22 

0032 
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SUBROUTINE  SATEF  23  0000 

C      ADO  FIELD  SATURATION  EFFECTS  TO  THE  INDUCTANCE  AND  ((IMPEDANCE))    23  0001 
C      MATRICES  OF  THE  SYNCHRONOUS  MACHINES  CONNECTED  TO  THE  MAIN  BUS.     23  0002 

COMMON  A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  23  0003 
1.LP1.LP2.LP3. TITLE. HEAD  23  0004 

DIMENSION  A (80*35) .B(99»35) .BO (8)  .C (50) .CD (3.4) «D < 120) »EG(50) »EP(523  0005 
10>,F(316),G(21»35> .GB ( 3.4, 9) .Q ( 316) , VV ( 21 .9) ,W (6. ft. 9) ,XL (6. 10,35) .23  0006 
2XM(6.10.9> .Y<316) .Z (6.6.35) .L < 134) .LG1 (50 > .LG2 (50) »LG3 (50 ) .LP  1 (50)23  0007 
3.LP2(50).LP3(50).TITLE(39).HEAD(39) 

NT=L(1)*L(2) 

DO  2  1=1, NT 

L20=L(I*10> 

GO  TO  (2.D.L20 
1  C1=A(4,I)»B(8.I)/(1.0*A(7.I)»B(8.I>) 

C2=A(4.I)«C1 

C3=C1»B(19.I) 

C4*C2«B(19.I) 

XL ( 1 ♦ 1 ♦  I ) =XL ( 1 . 1 . I > -C4»B (19.1) 

XL(2.1.I)=XL(2.1.I)-C4»B(23.I) 

XL ( 3. 1 . I ) =XL (3.1,1) -C4»B (21.1) 

XL(4.1.I)=XL<4.1.I)*C3»A(7.I) 

XL(5.1.I)»XL(5.1»I)*C3*A(8.I) 

C3=C1»B(23.I) 

C4=C2«B(23,I> 

XL(2.2.I)=XL(2.2.I)-C4»B(23.I) 

XL(3.2.I)=XL(3.2.I)-C4«B(21.I) 

XL(4.2.I)=XL(4.2.I)»C3»A(7.I) 

XL(5,2.I)=XL(5.2.I)»C3*A(8.I) 

XL(3.3.I)=XL(3.3.I)-C2»B(21.I)»B(21.I) 

C3=C1»B(21»I) 

XL(4.3.I)xXL(4,3.I)«-C3»A(7.I) 

XL(5.3.I)=XL(5.3.I)»C3»A(8.I) 

C3=C1»A(7,I)/A(4,I) 

XL(4,4,I)=XL(4.4.I)-C3»A(7.I) 

XL(5.4.I)=XL(5.4.I)-C3»A(8.I) 

XL(5.5.I)=XL(5.5.I)-C1»A(8.I)«A(8.I)/A(4.I) 

C1=C1»B(5.I) 

C2=C2»B(5.I) 

C3=C1»B(20.I> 

C4=C2»B(20.I> 

Z ( 1 . 1 . I ) =Z ( 1 . 1 . I ) ♦C4»B (19.1) 

Z(2.1.I)=Z(2.1.I)»C4*B(23.I) 

Z(3.1.I)=Z(3.1.I)»C4«B(21.I) 

Z (4. 1 » I ) =Z (4, 1 , I ) -C3*A ( 7. I ) 

Z(5,1.I)=Z(5.1.I)-C3»A(8,I) 

C3=C1»B(24,I) 

C4=C2»B(24,I) 

Z(1,2.I)  =  Z(1.2.I)  ♦  C4»B(19.I) 

Z(2.2,I)=Z(2.2.I)»C4»B(23.I) 

Z(3.2.I)=Z(3.2,I)*C4*B(21.I) 

Z(4.2.I)=Z(4.2.I)-C3*A(7.I) 

Z(5.2.I)=Z(5,2.I)-C3»A(8.I) 

C3  =  C1*B(22.I) 

C4  =  C2*B(22.I) 

Z(1.3.I)  =  Z(1.3.I)  ♦  C4»B(19.I) 

Z(2.3.I)  =  Z(2,3,I)  ♦  C4«B(23,I) 

Z(3.3.I)  =  ZOO. I)  ♦  C4»B(21.I) 

Z(4»3.I)=Z(4.3.I)-C3»A(7.I) 

Z(5.3.I)=Z(5.3.I)-C3»A(8,I) 
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XL(lt2»I)=XL<2»l.I)  23  0059 

XL(lt3«I)sXL(3tl*I>  23  0060 

XL(1»4,I)=XL(4,1,I)  23  0061 

XL(1»5»I)=XL(5.1.I)  23  0062 

XL(2»3»I)=XL(3»2»I)  23  0063 

XL(2»4,I)=XL<4.2.I)  23  0064 

XL(2»5.I)=XL(5.2.I)  23  0065 

X|_(3»4,I)=XL<4.3.I>  23  0066 

XL(3»5»I)=XL(5t3»I)  23  0067 

XL(4,5,I>=XL(5.4,I)  23  0068 

C1=A(4,I)«B(5.I)  23  0069 

B(9,I)=C1*B(20»I)  23  0070 

B(10.I)=Cl*B(24tI>  23  0071 

B(11,I)=C1»B(22,I)  23  0072 

CONTINUE  23  0073 

RETURN  23  0074 

END  23  0075 
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SUBROUTINE  RLMB  24  0000 

C      COMPUTE  THE  INSTANTANEOUS  VALUES  OF  THE  PHASE  RESISTANCES  AND  IN-   24  0001 

C      DUCTANCES  OF  THE  RL  LOAD  OF  THE  MAIN  BUS.  24  0002 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  24  0003 

1.LP1.LP2.LP3. TITLE. HEAD  24  0004 

DIMENSION  A(80.35).8<99.35),BO(8>.C(50).CD(3»4).D(120).EG(50>.EP<524  0005 
10) »F<316> .6(21.35) .GB(3.4»9).Q(316>»VV(21»9).W(6.6.9).XL(6.10.35) .24  0006 
2XM(6*10»9)*Y(316).Z(6«6»35)*L(134)*LG1(50>»LG2(50)»LG3(50).LP1(50)24  0007 

3.LP2(50)»LP3(50)*TITLE(39),HEAD(39)  24  0008 

DO  1  1=3.8  24  0009 

J=I*13  24  0010 

1  D(J)  *  C(I)  24  0011 
IF  (X.LT.C(ll) )  GO  TO  3  24  0012 

C      TO  2—.  STEP  CHANGE  IN  RL  LOAD.  24  0013 

C1=1.0»C(12)  24  0014 

DO  2  1*16.21  24  0015 

2  D(I)  =  C1«D(I)  24  0016 

3  IF(X.LT.C(13) )  GO  TO  5  24  0017 
C      TO  4—.  SINUSOIDAL  VARIATION  OF  RL  LOAD.  24  0018 

C1=C(14)»(X-C<13>>  24  0019 

C2=1.0*C(15)*SIN(C1)  24  0020 

C1=C(15)»C(14)»C0S(C1)  24  0021 

DO  4  1=16.18  24  0022 

J=I*3  24  0023 

D(I)=C2»D(I)»C1*D(J)  24  0024 

4  D(J)=C2*D(J)  24  0025 

5  IF(X.LT.C(9) .OR.X.GT.C(IO))  GO  TO  9  24  0026 
C  TO  ABOVE  9—,  ADJUST  VALUES  DURING  ONE.  TWO.  OR  THREE  PHASE  FAULTS  24  0027 
C      ON  MAIN  BUS.  24  0028 

L7=L(7)  24  0029 

IF(L7.LE.0.OR.L7.GT.3)  GO  TO  9  24  0030 

GO  TO  (8.7.6) »L7  24  0031 

6  D(18)=0.0  24  0032 
D(21)  =  0.0  24  0033 

7  D(17)*0.0  24  0034 
D<20)=0.0  24  0035 

8  D(16)»0.0  24  0036 
D(19>=0.0  24  0037 

9  RETURN  24  0038 
END  24  0039 
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SUBROUTINE  XLMAT  25  0000 

C      SET  UP  THE  MATRIX  XL  CONTAINING  THE  COEFFICIENTS  OF  THE  EQUATIONS  25  0001 

C      RELATING  THE  WINDING  CURRENT  DERIVATIVES  OF  EACH  ROTATING  MACHINE.  25  0002 

C      CONNECTED  TO  THE  MAIN  BUS.  TO  THE  CURRENT  DERIVATIVES  OF  THE  RL  25  0003 

C      LOAD  OF  THE  MAIN  BUS.  25  0004 

COMMON  A»B.B0.C.CD.D»EG.EP.F.G.GB.Q.VV.W,X.XL.XM.Y.Z.L»LG1,LG2.LG3  25  0005 

1.LP1.LP2.LP3. TITLE. HEAD  25  0006 

DIMENSION  A (80.35) .8(99.35) .80(8) .C (50). CD (3.4). D< 120) .EG (50) .EP(525  0007 
10) .F(316) »G(21.35).GB<3.4,9),Q(316) . VV (21 .9) .W (6.6.9) .XL (6. 10.35) .25  0008 
2XM(6.10.9) ,Y(316) .Z (6.6. 35) .L ( 134) .LG1 (50 ) .LG2 (50 ) »LG3 ( 50 ) »LP1 (50)25  0009 

3.LP2(50).LP3(50).TITLE(39),HEAD(39)  25  0010 

NS=L<1)»L(2)*L(3)  25  0011 

C1=D(16)«D(22)  25  0012 

C2=D(17)«D(23>  25  0013 

C3=D(18)«D(24)  25  0014 

DO  33  1=1, NS  25  0015 

LI=L<I*99)  25  0016 

J=L(I*50>-1  25  0017 

IF(LI.GE.3)  GO  TO  110  25  0018 

C      TO  100 — .  CONTRIBUTIONS  FROM  THE  GROUNDING  REACTORS  OF  SYNCHRONOUS  25  0019 

C      MACHINES.  25  0020 

C4=A(21.I)  25  0021 

IF(C4.LE.0.0)  GO  TO  110  25  0022 

DO  100  K=1.3  25  0023 

DO  100  M=1.3  25  0024 

100  XL(K.M.I)=XL(K.M.I)*C4  25  0025 

110  DO  22  K=1.6  25  0026 

DO  21  M=7,10  25  0027 

21  XL(K.M.I)=0.0  25  0028 

22  CONTINUE  25  0029 
XL(1.7,I)=-C1»B(7.I)»B(9.I)  25  0030 
XL(1.8.I)=-D(19>  25  0031 
XL(2.7.I)=-C2*B(7.I)»B(10.I)  25  0032 
XL(2»9.I)=-D(20)  25  0033 
XL(3.7,I)=-C3*B(7.I)«B(11.I)  25  0034 
XL(3. 10.1)8-0(21)  25  0035 
GO  TO  (24,23.25) .LI  25  0036 

C      TO  210  —  ,  CONTRIBUTION  FROM  THE  FIELD  VOLTAGE  OF  SYNCHRONOUS  MO-  25  0037 

C      TORS.  (EXCITER  MODEL.)  25  0038 

23  IF(  (60.0-B(5.I)/6.283).GE.A(24,D)  GO  TO  200  25  0039 
IF(Y(J»4) .LT.0.0)  GO  TO  200  25  0040 
C4=0.005«(D(7)*D(8) )  25  0041 
IF(A(23.I) .LT.0.0)  C4=0.005» (D(9) *D( 10) )  25  0042 
B(12.I)=A(22,I)*C(2)»(1.0*C4)  25  0043 
GO  TO  210  25  0044 

200  B(12.I)=-A(25»I)»Y(J»4)  25  0045 

210  XL(4,7.I)=B(12.I)  25  0046 

JJ=6  25  0047 

GO  TO  15  25  0048 

24  JJ=6  25  0049 
C  TO  ABOVE  25«.  CONTRIBUTIONS  FROM  THE  FIELD  VOLTAGE  OF  SYNCHRONOUS  25  0050 
C      ALTERNATORS.  (EXCITER  MODEL.)  25  0051 

IF(ABS(Y(J*8) ) ,GT.A(33.I) )  Y ( J*8) =SIGN < A (33. I ) . Y ( J*8) )  25  0052 

IF  (ABS(B(14,I) ) ,LT.A(32.I) )  GO  TO  30  25  0053 

XL(4,7,I)=SIGN(A(32,I) ,B(14,I) )  25  0054 

GO  TO  15  25  0055 

30  C4=2.0«(A(12,I)*A(31,I) > / (3.0«A (4, I ) »B (5, I ) )  25  0056 

C5=C4»(A(1.I)»A(2.I)*1.5»A(3.I) )»B(5.I)  25  0057 

XL(4.7,I)=C5»(Y(J*l)*B(19.I>*Y(J*2)»B(23.I>»Y(JO)*B(21.I> )-C4»(  25  0058 
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1D<16)»D(22>*B<20.I>»D(17>»D<23>»B<2<mI>*DU8>»D<24>»B<22»I>)*Y<J 
2*8)-A(31tI)»Y<J*4) 

XL(4»8»I>=-C4»D<19)«B<20.I> 

XL(4»9»I)=-C4*D<20)»B<24.I> 

XL(4,10tI)=-C4»D(21)«B(22.I> 

GO  TO  15 

25  JJ=5 

15  DO  27  K=ltJJ 
DO  26  M»1»JJ 
N=J»M 

26  XL(Kt7*I)=XL(K»7tI)-Z(K*H*I)*Y(N) 

27  CONTINUE 
33  CONTINUE 

RETURN 
END 
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SUBROUTINE  TRIAS  26  0000 

C      FOP  EACH  ROTATING  MACHINE  CONNECTED  TO  THE  MAIN  BUS»  TRI ANGULARIZE  26  0001 
C      THE  CORRESPONDING  PART  OF  THE  MATRIX  XL.  26  0002 

C      THE  RUN  IS  ABORTED  IF  ANY  SUCH  PART  OF  XL  IS  SINGULAR,  AND  A  COM-   26  0003 
C      MENT  IS  WRITTEN  IN  TAPE  6.  26  0004 

COMMON  A,B,BO»C,CD,n»EG»EP,F,G,GB,Q,VV,W,X»XL»XM»Y»Z»L»LGl»LG2»LG3  26  0005 
l.LPltLP2.LP3.TITLE»HEAD  26  0006 

DIMENSION  A (80*35) ,B(99,35) »B0(8) ,C (50) , CO (3,4) ,D( 120 ) .EG (50 ) .EP (526  0007 

10).F(316).G(21.35)»GB(3,4,9),Q(316)»VV(21,9)»W<6»6»9>,XL<6,10»35),26  0008 

?XM (6, 10.9) ,Y (316) »Z<6»6,35),L(134>,LG1(50)»LG2(50)»LG3<50>»LP1 (50)26  0009 

3.LP2(50) .LP3(50) . TITLE (39) .HEAD (39)  26  0010 

100  FORMAT (1H1,24HABN0RMAL  EXIT  FROM  TRIAS/28H  THE  XL  MATRIX  OF  SET  NU  26  0011 

1MBER.I3.12H  IS  SINGULAR) 

NS=L(1)*L(2)*L<3> 

DO  23  1=1. NS 

LI=L(I»99) 

GO  TO  (1.1.2) »LI 

1  J=7 

GO  TO  3 
?  J=6 

3  J=J-1 
IF(ABS(XL(J»J»I> )-1.0E-30)  4.4.12 

4  IF(J-l)  5.5.6 
C      SINGULAR  MATRIX.  ABORT  RUN. 

5  WRITE(6.100)  I 
CALL  EXIT 

6  J1=J 

7  J1=J1-1 
IF(ABS(XL(J1»J»I> )-1.0E-30)  8.8.9 

8  IF(Jl-l)  5,5,7 

9  DO  10  K=1,J 
W1=XL(J,K,I) 
XL(J,K,I)=XL(J1,K, I) 

10  XL(J1,K,I)=W1 
DO  11  K=7,10 
W1=XL(J,K,I) 
XL(J,KtI)=XL(Jl,K,I) 

11  XL(J1,K,I)=W1 

12  JJ=J-1 
IF(JJ)  15,15,13 

13  DO  14  K=1,JJ 

14  XL(J,K,I)=XL(J,K,I)/XL(J,J,I) 

15  DO  16  K=7,10 

16  XL(J,K,I)=XL(J,K,I)/XL(J,J,I) 
IF(JJ)  23,23,17 

17  J1=J-1 

18  IF(XL(J1,J,D)  19,22,19 

19  DO  20  K=1,JJ 

20  XL(J1,K,I)=XL(J1,K,I)-XL(J1,J»I)#XL(J»K,I) 
DO  21  K=7,10 

21  XL(J1,K,I)=XL(J1,K,I)-XL(J1,J,I)»XL(J,K,I) 

22  J1=J1-1 
IF(J1)  3,3,18 

23  CONTINUE 
RETURN 
END 


26 

0012 

26 

0013 

26 

0014 

6  0015 

26 

0016 

26 

0017 

26 

0018 

?6 

0019 

26 

0020 

26 

0021 

26 

0022 

26 

0023 

26 

0024 

26 

0025 

26 

0026 

26 

0027 

26 

0028 

26 

0029 

26 

0030 

26 

0031 

26 

0032 

26 

0033 

26 

0034 

26 

0035 

26 

0036 

26 

0037 

26 

0038 

26 

0039 

26 

0040 

26 

0041 

26 

0042 

26 

0043 

26 

0044 

26 

0045 

26 

0046 

26 

0047 

26 

0048 

26 

0049 

26 

0050 

26 

0051 

26 

0052 

26 

0053 

26 

0054 

26 

0055 

141 


24 
25 


26 


SUBROUTINE  CDMACH 

COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX  CO  FROM  EACH  ROTATING  MA- 
CHINE CONNECTED  TO  THE  MAIN  BUS. 

COMMON  A,B»BO»C»CD,D«EG,EP,F»G,GB»Q,VV»W,X»XL»XM»Y»Z»L»LGl,LG2,LG3 
1,LP1»LP2,LP3, TITLE, HEAD 

DIMENSION  A<a0.35> ,B (99,35) ,80 (8) ,C (50) ,00(3,4) , 0(120 ),EG(50) ,EP(527 
10)  ,F<316) ,G(21,35) ,GB (3,4,9) ,Q (316) ,VV<21,9) ,W (6,6,9) ,XL (6, 1 0 ,35) ,27 
2XM(6,10,9),Y(316) ,Z (6,6, 35) ,L ( 134) ,LG1 (50) »LG2 (50) ,LG3(50) ,LP1 (50)27 
3,LP2(50) ,LP3(50) , TITLE (39) , HE AD (39) 
NS  =  L(l)  ♦  L(2)  ♦  L(3) 
DO  35  1=1, NS 
IF(I-L(43)>  33,24,33 
IF(L<40))  25,25,27 

CD(1,1)-XL(1»8,I) 
CD(1,2)-XL(1,9,I) 
CD(1,3)-XL(1*10,I) 
CD(1,4)*XL(1»7»I) 
26,26,31 
CD(2,1)-XL(2,8,I)*XL<2,1,I)»XL(1,8,I) 
CD(2,2)-XL(2,9,I)*XL(2»1»I)*XL(1,9,I> 


B  WHEN  PHASE  A  OF  A 


CD (1,1)  = 

CD (1,2)  = 

CO(l,3)  = 

CD (1,4)  = 

IF(L(41) ) 

CD(2,1): 

CD(2,2). 

CD(2,3)=CD(2»3)-XL<2»10»I>^XL(2»1»I)»XL(1»10»I) 

CD(2,4)=CD(2,4)»XL(?,7,I)-XL(2,1,I)»XL(1,7,I) 

IF(L<42))  34,34,35 

27  IF(L(41>)  28,28,30 
FOUR  LINES  DOWN--,  CONTRIBUTIONS  FROM  PHASE 
MACHINE  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

28  CD(2,1)=CD(2,1)-XL(P,8,I) 
CD(2»2)=CD(2,2)-XL(2,9,I) 
CD ( 2 , 3  >  =CD (2,3)-XL(2,10,I) 
CD(2,4)=CD(2,4)*XL(?,7,I) 
IF(L(42))  29,29,35 

FOUR  LINES  DOWN—,  CONTRIBUTIONS  FROM  PHASE  C  WHEN  ONLY  PHASE  A  OF 
A  MACHINE  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

29  CD(3,1)=CD(3,1)-XL(3,8,I)»XL(3,2,I)»XL(2,8,I) 
CD(3,2)=CD(3,2)-XL(3,9,I)*XL(3,2,I)»XL(2,9,I) 
CD(3,3)=CD(3,3)-XL(3,10.I)*XL(3,2,I)«XL(2,10,I) 
CD(3,4)=CD(3,4)*XL(1,7,I)-XL(3,2,I)«XL(2,7,I) 
GO  TO  35 

FOUR  LINES  DOWN—,  CONTRIBUTIONS  FROM  PHASE  C  WHEN  PHASES  A  AND  B 
OF  A  MACHINE  ARE  DISCONNECTED  FROM  THE  MAIN  BUS. 

30  CD(3,1)=CD(3,1)-XL(3,8,I) 
CD(3,2)=CD(3,2)-XL(3,9,I) 
CD(3,3)=CD(3,3)-XL(3,10,I) 
C0(3,4)=CD(3,4)*XL(3,7,I) 
GO  TO  35 

31  IF(L(42>>  32,32,35 

FOUR  LINES  DOWN—,  CONTRIBUTIONS  FROM  PHASE  C  WHEN  ONLY  PHASE  B  OF 
A  MACHINE  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

32  CD(3,1)=CD(3,1)-XL(3,8,I)*XL(3,1,I)»XL(1,8,I) 
CD(3,2)=CD(3,2)-XL(3,9,I)»XL(3,1,I)»XL(1,9,I) 
CD(3,3)=CD(3,3)-XL(3,10,I)»XL(3,1,I)*XL(1,10,I) 
CD(3,4)=CD(3,4)*XL(3,7,I)-XL<3,1,I)*XL(1,7,I) 
GO  TO  35 

33  CD(1,1)=CD(1,1)-XL(1,8,I) 
CD ( 1 , 2 ) =CD ( 1 » 2 ) -XL ( 1 , 9 ♦ I ) 
CD(1,3)=CD(1,3)-XL(1,10,I) 
CD(1»4)=CD(1,4)*XL(1,7,I) 

CD(2,1)=CD(2,1)-XL(2,8,I)*XL(2,1,I)»XL(1,8»I) 
CD(2,2)=CD(2,2)-XL(2,9,I)»XL(2,1,I)»XL(1,9,I) 
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CD(2.3)=CD(2»3)-XL(2»10«I)*XL(2»l»I)*XL(ltl0»I) 
CD(2»4)=CD(2»4)»XL(2»7»I)-XL<2tl.I>»XL<l»7»I) 

34  CD(3»l)=C0(3.1)-XL(3»8tI)»XL(3«2»I)»XL(2t8.I)»XL(l»8tI)»(XL(3.1.I) 
1  -XL(2»l.I)»XL(3t2.D) 

CD(3»2)=C0(3*2)-XL(3»9.I)*XL<3.2.I)»XL(2»9.I)*XL(1«9.I)»(XL(3»1»I) 
1  -XL(2»1»I)»XL<3.2»I)) 

CD(3»3)=CO(3»3)-XL(3tlO.I)*XL(3»2»I)»XL(2tlOtI)*XL(l*10.I)»(XL(3.1 
ltI)-XL(2tltI)»XL(3»2»I) ) 

CD<3»4)=CD<3»4)»XL(3.7.I)-XL(3»2»I>»XL<2.7»I)-XL<l»7.I>»<XL<3tl.I> 
1  -XL(2»1»I)*XL(3.2»I) ) 

35  CONTINUE 
RETURN 
END 
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N  BUS* 

OF  THE 
ARY  CURRENTS 
BUS*  AND 

.LG1.LG2.LG3 

♦EG<50) .EP(5 
XL<6. 10.35) , 
(50).LP1 (50) 


RESISTANCES 


SUBROUTINE  CDTRAN 
C      FOR  EACH  DISTRIBUTION  TRANSFORMER  CONNECTED  TO  THE  MAI 
C      COMPUTE  B(39,I)  TO  R(50,I).  WHICH  ARE  THE  COEFFICIENTS 
C      THREE  EQUATIONS  RELATING  THE  DERIVATIVES  OF  THE  SECOND 
C      TO  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOAD  OF  THE  MAIN 
C      COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX  CD. 

COMMON  A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L 
1. LP 1.LP2.LP3. TITLE .HEAD 

DIMENSION  A (80* 35) »B (99.35) .80(8) .C(50) .CD (3*4) .0(120) 
10) .F<316) .G (21.35) »GB( 3. 4.9). 0(316) .  VV (21 .9) »W (6.6.9) . 
2XM(6.10.9),Y(316>.Z(6.6.35>.L<134),LG1 (50).LG2(50) .LG3 
3.LP2(50).LP3(50) . TITLE (39) .HEAD (39) 

N1=L(1>*L(2)*L<3)*1 

N2=N1*L<4>-1 

DO  200  I=N1.N2 
C      TO  20—.  COMPUTE  THE  INSTANTANEOUS  VALUES  OF  THE  PHASE 
C      AND  INDUCTANCES  OF  THE  RL  LOAD  OF  EACH  TRANSFORMER. 

DO  10  J=31.33 

R(J.I)=A(4.I) 

B(JO.I)=A(5.I) 
10  CONTINUE 

IF(X.LT.A(6.I) )  GO  TO  30 
C      TO  20  —  .  STEP  CHANGE  IN  RL  LOAD. 

C1=1.0*A(7.I) 

DO  20  J=31.36 

B(J.I)=C1«B(J.I) 
20  CONTINUE 
C      TO  159—,  COMPUTE  B(39.I)  TO  B(50.I). 
30  DO  40  J=39.50 

B(J.I)=0.0 
40  CONTINUE 

J=L(I*50) 

IF(X.LT.A(8.I) ,OR.X.GT.A(9,I))  GO  TO  60 

L8=IFIX(A(10,I)*0.000000001) 

IF(L8.GE.4)  GO  TO  110 

IF(L8.LE.O)  GO  TO  60 
C      TO  59—,  ADJUST  THE  PHASE  RESISTANCES  AND  INDUCTANCES 
C      TRANSFORMER  RL  LOAD  DURING  A  ONE.  TWO.  OR  THREE  PHASE 
C      CONDARY. 

GO  TO  (50.49.48) .L8 

48  B(33.I)=0.0 
B(36,I)=0.0 

49  B(32.I)=0.0 
B(35,I)=0.0 

50  B(31.I)=0.0 

59  B(34.I)=0.0 

60  IF(I.NE.L(43) ) 
IF(L(40) .GT.O) 
IF(L(41) .GT.O) 
IF(L(42) .GT.O) 

C      TO  79—,  GENERAL  EXPRESSIONS. 
70  C1=1.0/(A(2,I)*B(34,I) ) 
C2=C1/A(3,I> 

B(39,I)=-C1»Y(J)»(A(1,I)*B(31,I) ) *C2*(D (16) »D(22) -D ( 17) »D (23) ) 
B(40,I)=C2*D(19) 
R(41,I)=-C2»D(20> 
C1=1.0/(A(2.I)*B(35,I) ) 
C2=C1/A(3.I) 
B(43.I)=-C1»Y(J»1)»(A(1,I)*B(32,I) > *C2* (D ( 17) »D (23) -D < 18) »D (24) ) 


OF  THE 
FAULT  ON  SE- 


GO 

TO 

70 

GO 

TO 

80 

GO 

TO 

90 

GO 

TO 

100 

28  0000 
28  0001 
28  0002 
28  0003 
28  0004 
28  0005 
28  0006 
28  0007 
28  0008 
28  0009 
28  0010 
28  0011 
28  0012 
28  0013 
28  0014 
28  0015 
28  0016 
28  0017 
28  0018 
28  0019 
28  0020 
28  0021 
28  0022 
28  0023 
28  0024 
28  0025 
28  0026 
28  0027 
28  0028 
28  0029 
28  0030 
28  0031 
28  0032 
28  0033 
28  0034 
28  0035 
28  0036 
28  0037 
28  0038 
28  0039 
28  0040 
28  0041 
28  0042 
28  0043 
28  0044 
28  0045 
28  0046 
28  0047 
28  0048 
28  0049 
28  0050 
28  0051 
28  0052 
28  0053 
28  0054 
28  0055 
28  0056 
28  0057 
28  0058 


144 


B(45.I)=C2»D(20> 

R(46.I>=-C2*D(21> 

C1»1.0/(A(2»I)*B(36»I)J 

C2=C1/A(3,I) 

B(47»I)=-Cl»Y(J*2)»(A(l.I>*B<33tI> ) ♦C2* (D( 18 > »0 (24) -0< 16) »D ( 22) ) 

B(48.I)=-C2»D(19) 

79  B(50.I)=C2»D(21> 
GO  TO  160 

TO  89—,  PHASE  A  OF  TRANSFORMER  DISCONNECTED  FROM  THE  MAIN  BUS. 

80  C1=1.0/(2.0»A(2.I)»B(34.I)»B(36.I>> 
C2=C1/A<3»I) 
8(39.I)=-Cl»Y(J)»(2.0»A(l,I)*B(31tI)*B(33.I))-C2*(D(17)»D(23)-D(18 

1)«D<24) ) 
B(41.I)=-C2»D<20) 
B(42tI)=C2»D(21) 
C1=1.0/(A(2»I)*B(35,I)  ) 
C2=C1/A(3.I) 

B(43tl)=-C1»Y(J*1>»(A(1»I)*B(32.I) > *C2« (D ( 17) «D (23) -D ( 18) »D (24) ) 
B(45»I)=C2»D(20> 
B(46tI)=-C2*D(211 
R(47»I)=B(39,I) 
B(49,I)=B(41,I) 

89  B(50,I)=B(42.I) 
GO  TO  160 

TO  99— ♦  PHASE  B  OF  TRANSFORMER  DISCONNECTED  FROM  THE  MAIN  BUS. 

90  C1  =  1.0/(2.0»A(2.I)*B(34,I)*B(35.D) 
C2=C1/A(3,I) 
B(39,I)=-C1«Y(J)«(2.0»A(1»I)*B(31,I)*B(32.I))-C2»(D(18)»D(24)-D<16 

1)*D(22) ) 

B(40.I)=C2»D(19) 

B(42.I)=-C2»D(21) 

R(43.I)=B(39,I) 

B(44,I)=B(40.I) 

B(46,I)=B(42,I) 

C1=1.0/(A(2,I)*8(36.I) ) 

C2=C1/A(3.I) 

B(47,I)=-C1»Y(J*2)»(A(1,I)»B(33.I) ) »C2» (D ( 18) »D (24) -D ( 16) »D (22) ) 

B(48,I)=-C2»D(19) 
99  B(50»I)=C2»D(21) 

GO  TO  160 

TO  109— »  PHASE  C  OF  TRANSFORMER  DISCONNECTED  FROM  THE  MAIN  BUS. 
100  C1=1.0/(A(2«I)*B(34,1) ) 

C2=C1/A(3.I) 

B(39tl)=-C1»Y(J)*(A(1.I)*B(31«I))*C2*(D(16)*D(22)-D(17)*D(23) ) 

B(40»I)=C2*D(19) 

B(41,I)=-C2»D(20) 

C1=1.0/(2.0*A(2»I)*B(35«I)*B(36.I) ) 

C2=C1/A(3,I) 

B(43,I)=-C1»Y(J»1)»(2.0»A(1,I)*B(32»I)»B(33.I))-C2»(D(16)«D(22)-D( 
117)»D(23) > 


109 
110 


B(44,I)=-C2«D(19) 

B(45»I)=C2«D(20) 

B(47»I)=B(43»I) 

B(48,I)=B(44,I) 

B(49.I)=B(45.I) 

GO  TO  160 

IF(I.NE.L(43) )  GO 

TO 

120 

IF(L(40).GT.O)  GO 

TO 

130 

IF(L(41) .GT.O)  GO 

TO 

140 
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IF(L<42> .GT.O)  60  TO  150  28  0118 

C      TO  129— ,  LINE-TO-LINE  FAULT  ON  SECONDARY.  28  0119 

120  C8=0.5/<A(2,I)*B<34,I> )  28  0120 

C10*C8«(A<1,I)*B<31,I) )  28  0121 

C8=C8/A(3»I)  28  0122 

C9=0.5/A(2,I)  28  0123 

C1=C10»(Y(J)*Y(J»1))  28  0124 

C2=C9«A(1,I)»(Y(J)-Y<JM)  )  28  0125 

C9=C9/A(3,I)  28  0126 

C3=C8«MD<18)»D(24)-D<16)»D<22>  )  28  0127 

C4=C9MD(16)»D<22)*D(18)»D<24)-2.0»D<17)»D<23>)  28  0128 

C5=C8*D(21)  28  0129 

C6=C8«D<19>  28  0130 

C7=C9«DU9)  28  0131 

C8=2.0»C9»D<20)  28  0132 

C9=C9»D(21)  28  0133 

B(39,I)*-C1-C2-C3*C4  28  0134 

B(40,I)=C6*C7  28  0135 

R(41,I)=-C8  28  0136 

B(42.I>=-C5»C9  28  0137 

B(43,I)=-C1*C2-C3-C4  28  0138 

B(44,I)=C6-C7  28  0139 

B(45»I)=C8  28  0140 

B(46,I)=-C5-C9  28  0141 

B(47,I)=2.0*<-C10»Y(J*2)*C3>  28  0142 

B(48,I)=-2.0»C6  28  0143 

129  B(50,I)=2.0»C5  28  0144 
60  TO  160  28  0145 

C      TO  139 — *  LINE-TO-LINE  FAULT  ON  SECONDARY  AND  PHASE  A  OF  TRANS-     28  0146 

C      FORMER  DISCONNECTED  FROM  THE  MAIN  BUS.  28  0147 

130  C6=1.0/(A(2»I)*0.25«B(34.I) )  28  0148 
C1=(A(  1,1)  *B(  31.1)  )»<2.0»Y(J)*Y(JM>  )  /  (3.0*  ( A  (2. 1 )  *B(  34.1)  >  )  28  0149 
C2=C6»(A(1,I)*0.25»R(31,I> )• (Y( J)-Y( J*l ) )/3.0  28  0150 
C6=0.5«C6/A(3.I)  28  0151 
C3=C6»(D<17)*D(23)-D(18)»D(24) )  28  0152 
C4=C6«D(20>  28  0153 
C5=C6»D(21)  28  0154 
B(39,I)=-C1-C2-C3  28  0155 
B(41.I)=-C4  28  0156 
B(42.I)=C5  28  0157 
B(43,I)=-C1»2.0MC2*C3>  28  0158 
B(45,I)=2.0»C4  28  0159 
B(46,I)=-2.0«C5  28  0160 
B(47,I)=B(39.I)  28  0161 
B(49,I)=-C4  28  0162 

139  B(50,I)=C5  28  0163 
60  TO  160  28  0164 

C      TO  149—,  LINE-TO-LINE  FAULT  ON  SECONDARY  AND  PHASE  B  OF  TRANS-     28  0165 

C      FORMER  DISCONNECTED  FROM  THE  MAIN  BUS.  28  0166 

140  C4=1.0/(A(2,I)*B<34,D)  28  0167 
C5=C4»(A(1,I)*B(31,I) )  28  0168 
C4=0.5»C4/A(3,I)  28  0169 
C1=C4«(D(18)«D(24)-D(16)»D(22)  )  28  0170 
C2=C4*0(21)  28  0171 
C3=C4»D(19>  28  0172 
B(39,I)=-C5«Y(J)-C1  28  0173 
B(40,I)=C3  28  0174 
B(42,I)=-C2  28  0175 
B(43,I)=B(39,I)  28  0176 
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159 


160 


170 


180 


200 


AND  PHASE  C  OF  TRANS- 


B(44.I)=C3 

B(46,I)=-C2 

B(47»I)=-C5*Y(J*2)*2.0«C1 

B(48,I)=-2.0«C3 

R(50.I)=2.0»C2 

GO  TO  160 

TO  159—,  LINE-TO-LINE  FAULT  ON  SECONDARY 

FORMER  DISCONNECTED  FROM  THE  MAIN  BUS. 

C6=1.0/(A(2.I)*0.25«B(34»I) ) 

C1=(A(1,I)»8(31»I) >»(Y(J)»2.0»Y(J»1> ) / (3.0* ( A (2. I ) *B (34, I ) ) ) 

C2=C6»(A( 1*1) ♦0.25*8(31, I) ) • ( Y ( J) -Y ( J*l ) ) /3.0 

C6=0.5*C6/A(3»I> 

C3=C6*(D(16)»D(22)-D(17)*D(23) ) 

C4=C6»D(19) 

C5=C6*D(20) 


B(39 
B(40 
B(41 
8(43 
B(44 
B(45 
B(47 
B(48 
B(49 


I)=-C1*2.0*(C3-C2) 

I)=2.0*C4 

I)=-2.0*C5 

I)=-C1*C2-C3 

I)=-C4 

I)=C5 

I)=B(43,I) 

I)=-C4 

I)=C5 


COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX 
IF(I.E0.L(43) .AND.L(40) .GT.O)  GO  TO  170 
CD(1»1)=CD(1»1)-(B(48»I>-B<40»I) >/A(3»I 
CD(1,2)=CD(1,2)-(8(49,I)-B(41,I) )/A(3»I 
CD(l»3)=CD(1.3)-(B(50f I ) -B (42. I ) ) /A (3» I 
CD(1.4)=CD(1,4)*(B(47,I)-B(39»I))/A(3»I 
IF(I.EQ.L(43) .AND. L(41) .GT.O)  GO  TO  180 
CD(2.1)=CD(2»1)-(B(40,I)-B(44»I) )/A(3»I 
CD  ( 2  »  2 )  =CD  (  2  .  2 )  -  ( B  ( 4 1 » I )  -B  ( 45  ♦  I )  )  /  A  ( 3 1 1 
CD(2.3)=CD(2.3)-(B(42.I)-B(46,I) )/A(3»I 
CD(2,4)=CD(2,4)»(B(39,I)-B(43.I))/A(3«I 
IF(I.E0.L<43) .AND. L(42) .GT.O)  GO  TO  200 
CD(3,1)=CD(3,1)-(B(44»I)-B(48,I) )/A(3»I 
CD(3.2)=CD(3,2)-(B(45,I)-B(49»I) )/A(3,I 
CD(3.3)=CD(3,3)-(B(46,I)-B(50»I) )/A(3,I 
CD(3,4)=CD(3,4)»(B(43»I)-B(47,I))/A(3,I 
CONTINUE 
RETURN 
END 
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29 

0009 

SUBROUTINE  CDCOMP 
C      SFT  UP  THE  VOLTAGE  EQUATIONS  OF  THE  COMMERCIAL  POWER  SYSTEM. 
C      INVERT  THESE  EQUATIONS  TO  COMPUTE  THE  COEFFICIENTS  D(100)  TO 
C      D(lll)  RELATING  THE  DERIVATIVES  OF  THE  CURRENTS  FROM  THE  SYSTEM  TO 
C      THE  MAIN  BUS  TO  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOAD  OF  THE  MAIN 
C      BUS.  THE  RUN  IS  ABORTED  IF  A  SINGULAR  MATRIX  IS  INVOLVED  IN  THIS 
C      INVERSION,  AND  A  COMMENT  IS  WRITTEN  IN  TAPE  6. 
C      COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX  CD  FROM  THE  SYSTEM. 

COMMON  A,B»B0»C»CD,D»EG,EP»F,G,GB,Q,VV»W,X»XL»XM,Y»Z»L»LG1,LG2,LG3 
l,LPl»LP2»LP3, TITLE, HEAD 

DIMENSION  A (80 ,35) ,R (99,35) ,BO (8) ,C (50) ,CD(3,4) ,D ( 120) »EG (50 ) ,EP(529  0010 
10) ,F (316) ,G (21,35) ,GB (3,4,9) ,0(316) ,VV (21,9) ,W(6,6,9),XL (6, 10, 35) ,29  0011 
2XM(6,10,9),Y(316),Z(6,6,35) ,L(134) ,LG1 (50),LG2(50) ,LG3<50) ,LP1(50)29  0012 
3,LP2<50) ,LP3(50) , TITLE (39) , HEAD (39)  29  0013 

8  FORMAT (1H1,25HABN0RMAL  EXIT  FROM  CDCOMP/60H  THE  EQUATIONS  OF  THE  C  29  0014 
10MMERCIAL  POWER  SYSTEM  ARE  DEGENERATE) 

NU=L(1)*L(2)*L(3J*L(4)*1 

J=L(NU*50) 

J1=J*1 

J2=J»2 
C      TO  20 — ,  COMPUTE  THE  PHASE  VOLTAGES  OF  THE  POWER  SYSTEM. 

C1=C<41) 

IF(X.GE.C(43) .AND.X.LE.C(45) )  C1=C1» < 1 .0*C (44) ) 

C2=376.991115«X*C(42) 

D(96)=C1»C0S(C2) 

C1=0.866025404«C1«STN(C2> 

C2=-0.5*D<96) 

D(97)=C2*C1 
20  D(98)=C2-C1 
C      TO  ABOVE  7~,  SET  UP  VOLTAGE  EQUATIONS. 

C      TO  70 — ,  GENERAL  EXPRESSIONS.  SUFFICIENT  FOR  THREE  PHASE  FAULT  ON 
C      PRIMARY  OF  TRANSFORMER. 

C1=C(35)*2.0»C(37) 

C2=C(36)*2.0«C(38) 

XU1=C1 

Xtl2=-C(37) 

XU3=-C(37) 

XU4=-C2»Y(J)*C(38)»(Y(J1)*Y(J2) )-0( 16) *D(22) 

XU5=-D(19) 

XU6=-C(37) 

XU7=C1 

XU8=-C(37) 

X1J9=-C2»Y(J1)»C(38)«(Y(J)*Y(J2)  ) -D  ( 17)  *D  (23) 

XU10=-D(20) 

XU11=-C(37) 

XU12=-C(37) 

XU13=C1 

XU14=-C2*Y(J2)»C(38)MY(J)*Y(Jl))-D(18)«D(24> 
70  Xl)15=-D(21) 

IF(X.GE.C(47) ,AND.X.LE.C(48) )  GO  TO  2 
C      TO  30  —  ,  ADJUSTMENTS  FOR  NO  FAULT  ON  PRIMARY  OF  TRANSFORMER. 
1  XU1=XU1*2.0»C(39) 

XU2=XU2-C(39) 

XU3=XU3-C(39) 

XU4=XU4-2.0»C(40)»Y(J)*C(40)»(Y(J1)*Y(J2) ) *D (96) -D (97) 

XU6=XU6-C<39) 

XU7=XU7»2.0»C(39) 

XU8=XU8-C(39) 

XU9=XU9-2.0*C(40)»Y(J1)*C(40)*<Y<J)*Y<J2> ) *D (97) -D (98) 
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XU11=XU11-C(39) 
XU12=XU12-C<39) 
XU13=XU13*2.0»C<39) 
30  XU14=XU14-2.0«C(40)»Y(J2)*C(40>»(Y<J)*Y(J1) ) *D (98) -D (96) 
60  TO  7 

2  IF(L(8)-1)  1,3.4 

C      TO  40— »  ADJUSTMENTS  FOR  ONE  PHASE  FAULT  ON  PRIMARY  OF  TRANSFORMER 

3  XU1=XU1*C(39) 
XU2*XU2-C(39) 

XU4=XU4-C(40)*(Y(J)-Y(J1) )-D(97) 
XU6=XU6-C(39) 
XU7=XU7*2.0«C(39) 
XU8*XU8-C<39) 

XU9=XU9-2.0»C(40)»Y(J1)*C(40>»<Y(J)*Y<J2) ) *D (97) -0 (98) 
XU12=XU12-C(39) 

XU13=XU13*C(39) 
40  XU14=XU14-C(40)»(Y(J2)-Y(J1) )*D(98) 
GO  TO  7 

4  IF(L(8>-3)  5,7,6 

C      TO  50—.  ADJUSTMENTS  FOR  TWO  PHASE  FAULT  ON  PRIMARY  OF  TRANSFORMER 

5  XU7=XU7»C(39) 
XU8=XU8-C(39) 

C1=C(40)«(Y(J2)-Y(J1) )-D(98) 
XU9=XU9»C1 
XU12=XU12-C(39) 
XU13=XU13»C<39) 

50  XU14=XU14-C1 
GO  TO  7 
C      TO  60—.  ADJUSTMENTS  FOR  LINE-TO-LINE  FAULT  ON  PRIMARY  OF  TRANS- 
C      FORMER. 

6  XU7=XU7»1.5»C(39> 
XU8=XU8-1.5*C(39) 

C1=1.5*C(40)»(Y(J1)-Y(J2) )*1.5»D(98) 
XU9=XU9-C1 
XU12=XU12-1.5*C(39) 
XU13=XU13*1.5«C(39) 

60  XU14=XU14*C1 
C      TO  10—.  COMPUTE  D<100)  TO  D(lll). 

7  C1=XU7«XU13-XU12»XU8 
C2=XU2«XU13-XU12«XU3 
C3=XU2»XU8-XU7#XU3 
DET=XU1»C1-XU6»C2*XU11»C3 
IF(ABS(DET) .GT.1.0E-30)  GO  TO  9 

C      SINGULAR  MATRIX.  ABORT  PUN. 
WRITE(6.8) 
CALL  EXIT 
9  D ( 100 ) = (XU4»C1-XU9»C2*XU14»C3» /DET 
D(101)=XU5»C1/DET 
D(102)=-XU10*C2/DET 
D(103)=XU15»C3/DET 
C1=(XU6«XU13-XU11»XU8)/DET 
C?=(XU1«XU13-XU11»XU3)/DET 
C3=(XU1*XU8-XU6«XU3)/DET 
D(104)=XU9»C2-XU4»C1-XU14»C3 
D(105)=-XU5»C1 
D(106)=XU10»C2 
D(107)=-XU15«C3 
C1=(XU6*XU12-XU11»XU7)/DET 
C2=(XU1»XU12-XU11»XII2)/DET 
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C3=(XU1«XU7-XU6«XU2)/DET  29  0118 

D(108)=XU4*C1-XU9»C2*XU14»C3  29  0119 

D(109)=XU5«C1  29  0120 

D<110)=-XU10«C2  29  0121 

10  D(111)=XU15»C3  29  0122 
COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX  CD.  29  0123 
IF(NU.EQ.L(43> .AND.LC40) .GT.O)  GO  TO  11  29  0124 
CD<1»1)=CD(1.1)-D<101>  29  0125 
CD(1«2)=CD(1«2)-D(102)  29  0126 
CD(1»3)=CD(1.3)-D(103)  29  0127 
CO(l»4)=CD(l»4)»O(100)  29  0128 

11  IF(NU.EQ.L<43) .AND.L<41) .GT.O)  GO  TO  12  29  0129 
CD(2»1)=CD(2.1)-D(105)  29  0130 
CD(2»2)=CD<2»2)-D<106>  29  0131 
CD<2.3)=CD(2.3)-D<107)  29  0132 
CD(2»4)=CD(2.4)*D(104>  29  0133 

12  IF(NU.EQ.L(43) .AND. L<42) .GT.O)  GO  TO  14  29  0134 
CD(3.1)=CD(3»1)-D(109)  29  0135 
CD(3,2)=CO(3,2)-D(110)  29  0136 
CD(3.3)=CD(3,3)-D(111)  29  0137 
CD(3.4)=CD(3.4)*D<108)  29  0138 

14  RETURN  29  0139 

END  29  0140 
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PHASE  RESISTANCE 
NUMBER  2. 


2. 


SUBROUTINE  CODR 
C      COMPUTE  THE  CONTRIBUTIONS  TO  THE  MATRIX  CO  FROM  THE  DUPLEX  REACTOR 
COMMON  A.B.B0.C.CD.0.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 
1.LP1.LP2.LP3, TITLE. HEAD 

DIMENSION  A(80.35).B<99,35) »BO(8) .C (50 > ,CD < 3.4) ,D < 120) .EG (50) .EP<530 
10),F(316).G(21.35).GB<3.4,9).Q<316).VV<21.9>.W(6.6.9),XL<6,10.35> 
2XM(6.10.9)  .Y (316) .Z (6.6.35) .L( 134) .LG1 (50)  .LG2(50)  »LG3<50)  .LP  1(50): 
3»LP2(50) .LP3(50) .TITLE (39) .HEAD (39) 
J=L(31)-5 
C      TO  2—.  COMPUTE  THE  INSTANTANEOUS  VALUES  OF  THE 
C      AND  INDUCTANCE  OF  THE  RL  LOAD  REPRESENTING  HVPS 
D(77)=C(23) 
D(78)=C(24) 

IF(X.LT.C(29) )  GO  TO  1 
C      TO  ABOVE  1~»  VALUES  FOR  STEP  CHANGE  OF  LOAD  OF  HVPS  NUMBER  2. 
C1»1.0»C(30) 
D(77)=C1»D<77) 
0(78)=C1«D(78) 

1  IF(X.LT.C(26) .0R.X.GT.C<27) )  GO  TO  2 
C      TO  ABOVE  2 — .  VALUES  DURING  CROWBAR  IN  HVPS  NUMBER 

D(77)=C(28) 
D(78)=0.0 

2  C1=1.0/(C(19)*C(21) ) 
C2=1.0/(C(19)*D(77) ) 
C3=1.0-C(18)»(C1*C2) 
C1=C1/C3 
C2=C2/C3 
C3=C1*C2 

C2=C2»(C(20)*D(78) ) 
C1=C2-C1«(C(20)»C(22) ) 

D(79)=Cl«Y(JO)»C2»Y(J)»C3»D<16)»D(22> 
D(80)=C1*Y(J*4)*C2«Y(J*1)*C3»D(17)*D(23) 
D(81)=C1«Y(J*5)*C2»Y(J*2)*C3*D(18)»D(24) 
D(82)=C3 

CD ( 1 . 1 ) =CD (1.1) *C3«D (19) 
CD(1.4)=CD(1.4)-D(79) 
CD(2.2)=CD(2.2)*C3*D(20) 
CD(2.4)=CO(2.4)-D(80) 
CD(3.3)=CD(3.3)*C3»D(21) 
CD(3.4)=CD(3.4)-D(81) 
RETURN 
END 
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SUBROUTINE  MBSOLV  31  0000 

C      SOLVE  FOR  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOAD  OF  THE  MAIN  BUS    31  0001 
C      BY  TRIANGULARIZING  THE  MATRIX  CD.  31  000? 

C      THE  RUN  IS  ABORTED  IF  THE  MATRIX  IS  SINGULAR.  AND  A  COMMENT  IS      31  0003 
C      WRITTEN  IN  TAPE  6.  31  0004 

COMMON  A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  31  0005 
1.LP1.LP2.LP3.TITLE.HEAD  31  0006 

DIMENSION  A (80 .35) »R (99,35) »B0(8) .C (50 > .CD (3.4) »D(120) .EG (50) .EP (531  0007 
10) .F (316) .G (21.35) .GB(3.4,9).Q (316). W (21.9) .W(6.6.9).XL (6. 10.35) .31  0008 
2XM(6.10.9).Y(316).Z(6.6.35).L(134).LG1(50).LG2(50).LG3(50).LP1 (50)31  00  09 
3«LP2(50) .LP3(50).TITLE(39) .HEAD(39)  31  0010 

101  FORMAT (1H1.25HABN0RMAL  EXIT  FROM  MBS0LV/26H  THE  CD  MATRIX  IS  SINGU  31  0011 
1LAR/1H0.4(1X,E12.5) ) 
1=4 

37  1=1-1 
IF(ABS(CD(I.I) J-1.0E-30)  38,38.45 

38  IF(I-l)  39.39.40 
C      SINGULAR  MATRIX.  ABORT  RUN. 

39  WRITE (6.1 01 )( (CD (I, J) ,J=1. 4) ,1=1,3) 
CALL  EXIT 

40  11=1 

41  11=11-1 
IF(ABS(CD(I1,I) )-1.0E-30)  42,42,43 

42  IF(Il-l)  39,39,41 

43  DO  44  K=1,I 
W1=CD(I,K) 
CD(I.K)=CD(I1.K> 

44  CD(I1.K)=W1 
W1=CD(I.4) 
CD(I.4)=CD(I1.4) 
CD(I1»4)=W1 

45  11=1-1 
IF(II)  48,48.46 

46  DO  47  K=1,II 

47  CD(I,K)=CD(I,K)/CD(I,I) 

48  CD(I.4)=CD(I.4)/CD(I,I) 
IF( 1 1 )  75.75.70 

70  11=1-1 

71  IF(CD(I1.D)  72.74.72 

72  DO  73  K=1.II 

73  CD ( 1 1 .K  >  =CD ( 1 1 ,K ) -CD ( 1 1 . I ) »CD ( I .K ) 
CD ( 1 1 .4 ) =CD (11,4) -CD ( 1 1 , I ) »CD (1,4) 

74  11=11-1 
IF(I1)  37,37,71 

75  D(?5)=CD(1,4) 
D(26)=CD(2.4)-CD(2»1)«D(25> 
D(27)=CD(3,4)-CD(3,1)»D(25)-CD(3.2)»D(26) 
RFTURN 
END 
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SUBROUTINE  FMACH  32  0000 

C      COMPUTE  THE  DERIVATIVES  OF  THE  WINDING  CURRENTS  OF  THE  ROTATING     32  0001 

C      MACHINES  CONNECTED  TO  THE  MAIN  BUS.  32  0002 

COMMON  A,B,B0»C»CD,D»EG,EP,F»G,GB,Q,VV»W,X»XL»XM»Y»Z»L»LG1»LG2,LG3  32  0003 

1,LP1»LP2,LP3, TITLE, HEAD  32  0004 

DIMENSION  A (80 ,35) ,B (99,35) ,BO(8> ,C(50) ,CD<3,4) ,0(120) .EG (50) ,EP(532  0005 
10),F(316),G(21,35>,GB(3»4,9),G(316)»VV(21»9),W(6»6»9>,XL(6,10»35)»32  0006 
2XM(6,10»9> ,Y(316),Z(6,6,35),L<134) ,LG1 (50 > ,LG2 (50) ,LG3(50) . LP  1 (50)32  0007 
3,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39)  32  0008 

NS=L(1)»L(2)*L(3)  32  0009 

DO  61  1=1, NS  32  0010 

J=L(I*50)  32  0011 

J1=J»1  32  0012 

J2=J*2  32  0013 

J3=J*3  32  0014 

J4=J*4  32  0015 

IF(I.NE.L(43).OR.L(40),LE.O)  GO  TO  51  32  0016 

C      PHASE  A  OF  THE  MACHINE  IS  DISCONNECTED  FORM  THE  MAIN  BUS.  32  0017 

F(J)=0.0  32  0018 

GO  TO  52  32  0019 

51  F(J)=XL(1,7,I)»XL(1,8,I)»D(25)*XL(1,9,I)»D(26)*XL(1,10,I)»D(27)     32  0020 

52  IF(I.NE.L(43) .0R.L(41) .LF.O)  GO  TO  54  32  0021 
C      PHASE  B  OF  THE  MACHINE  IS  DISCONNECTED  FROM  THE  MAIN  BUS.           32  0022 

F(J1)=0.0  32  0023 

GO  TO  55  32  0024 

54  F(J1)=XL(2,7,I)*XL(?,8,I)»D(25)*XL(2,9,I)*D(26)»XL(2,10,I)«D(27)-F  32  0025 
1 (J)«XL(2,1,I)  32  0026 

55  IF(I.NE.L(43) .0R.L(42) .LE.O)  GO  TO  58  32  0027 
C      PHASE  C  OF  THE  MACHINE  IS  DISCONNECTED  FROM  THE  MAIN  BUS.  32  0028 

F(J2)=0.0  32  0029 

GO  TO  59  32  0030 

58  F(J2)=XL(3,7,I)*XL(1,8,I)»D(25)*XL(3,9,I)»D(26)*XL(3,10,I)»D(27)-F  32  0031 
1<J)»XL(3,1,I)-F(J1)«XL(3,2,I)  32  0032 

59  F(J3)=XL(4,7,I)*XL(4,8,I)»D(25)*XL(4,9,I)»D(26)*XL(4,10,I)«D(27)-F  32  0033 
1 (J)«XL(4,1,I)-F(J1)«XL(4,2,I)-F(J2)«XL(4,3,I)  32  0034 

F(J4)  =  XL(5,7,I)  -  F(J)»XL(5,1,I)  -  F ( Jl ) »XL (5,2, I )  -  F(J2)»XL(5,  32  0035 

13,1)  -  F(J3)*XL(5,4,I)  32  0036 

LI=L(I*99)  32  0037 

GO  TO  (60, 60, 61), LI  32  0038 

60  J5=J*5  32  0039 
F(J5)  =  XL(6,7,I)  -  F(J)»XL(6,1,I)  -  F ( Jl ) »XL (6,2, I )  -  F(J2)»XL<6,  32  0040 

13,1)  32  0041 

61  CONTINUE  32  0042 
RETURN  32  0043 
END  32  0044 
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SUBROUTINE  FTRAN  33  0000 

C      COMPUTE  THE  DERIVATIVES  OF  THE  DEPENDENT  VARIABLES  OF  THE  DISTRI-   33  0001 

C      BUTION  TRANSFORMERS  CONNECTED  TO  THE  MAIN  BUS.  33  0002 

COMMON  A.B.BO.C.CD.0.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  33  0003 

1.LP1.LP2.LP3. TITLE. HEAD  33  0004 

DIMENSION  A (80. 35) .B (99. 35) ,60 (8) .C (50 ) .CD (3. 4) .D ( 120 ) .EG (50) »EP<533  0005 
10) .F (316) .G(21.35) .GB (3. 4, 9), 0(316) .VV (21.9) .W(6.6.9) .XL (6. 10.35) .33  0006 
2XM(6.10.9).Y(316) .2 (6.6.35) ,L ( 134) .LG1 (50 ) .LG2 (50 ) .LG3 (50 ) . LP  1 (50)33  0007 
3.LP2(50) .LP3(50) .TITLE(39) .HEAD(39)  33  0008 

N1=L(1)*L(2)*L(3)+1  33  0009 

N2=N1*L(4)-1  33  0010 

DO  100  I=N1.N2  33  0011 

J=L(I*50)  33  0012 

F(J)=B(39,I)*B(40.I)»D(25)*B(41.I)»D(26)*B(42.I)»D(27)  33  0013 

F(J*1)=B(43,I)*B(44,I)»D(25)*B(45,I)«D(26)*B(46,I)»D(27>  33  0014 

F(J»2)=B(47,I)»B(48.I)»D(25)»B(49.I)«D(26)*B(50.I)»D(27)  33  0015 

100  CONTINUE  33  0016 

RETURN  33  0017 

END  33  0018 
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SUBROUTINE  FCOMP  34  0000 

C      COMPUTE  THE  DERIVATIVES  OF  THE  DEPENDENT  VARIABLES  OF  THE  COMMERC-  34  0001 
C      IAL  POWER  SYSTEM.  34  0002 

COMMON  A*B*B0*C.CD.D*EG»EP*F*G.GB.Q.VV»W*X»XL»XM«Y.Z*L*LG1.LG2*LG3  34  0003 
1*LP1.LP2*LP3*TITLE»HEAD  34  0004 

DIMENSION  A (80.35) .8(99*35) *B0(8)  *C<50) » CD (3*4) tD(120) *EG (50) *EP (534  0005 
10) *F( 316) *G (21*35) »GB< 3*4,9) ,Q( 316) *VV< 21*9) *W(6.6*9> .XL (6* 10*35) *34  0006 
2XM(6*10»9) *Y(316) *Z (6*6*35) ,L ( 134) ,LG1 (50 ) *LG2 (50) *LG3 (50 ) *LP1 (50 ) 34  00  07 
3*LP2(50) *LP3(50) . TITLE (39) *  HEAD (39) 

NU  =  L(l)  ♦  L(2)  ♦  L(3)  ♦  L(4)  ♦  1 

J=L(NU*50) 

J1=J*1 

J2=J»2 

IF(NU.NE.L<43) ,OR.L(40) .LE.O)  GO  TO  1 
C      PHASE  A  OF  THE  SYSTEM  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

F(J)=0.0 

GO  TO  2 

1  F(J)=D(100)*D(101)»D(25)»D(102)»D(26)»D(103)»D(27) 

2  IF(NU.NE.L(43) .0R.L(41) .LE.O)  GO  TO  3 
C      PHASE  B  OF  THE  SYSTEM  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

F(J1)=0.0 
GO  TO  4 

3  F(J1)=D(104)*D(105)»D(25)»D(106)«D(26)»D(107)»D(27) 

4  IF(NU.NE.L(43) . OR. L (42) .LE.O)  GO  TO  5 
C      PHASE  C  OF  THE  SYSTEM  IS  DISCONNECTED  FROM  THE  MAIN  BUS. 

F(J2)=0.0 
GO  TO  6 

5  F(J2)=D(108)*D(109)*D(25)»D(110)»D(26)*D(111)»D(27) 

6  RETURN 
END 
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SUBROUTINE  FDR  35  0000 

C      COMPUTE  THE  DERIVATIVES  OF  THE  DEPENDENT  VARIABLES  OF  THE  DUPLEX    35  0001 

C      RFACTOR  AND  HIGH  VOLTAGE  POWER  SUPPLY  NUMBER  1.  35  0002 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  35  0003 

1.LP1.LP2.LP3. TITLE. HEAD  35  0004 

DIMENSION  A(80.35).B<99.35) ,B0(8) .C (50) .CD (3.4) .D ( 120 > .EG (50 ) .EP(535  0005 
10),F(316).G(21.35).GB(3.4.9).0(316).VV(21.9).W(6.6.9).XL(6.10.35).35  0006 
2XM (6.10.9) .Y(316)»Z(6.6.35),L(134) .LG1 (50 ) .LG2 (50 ) .LG3 (50 ) .LP1(50)35  0007 

3.LP2(50),LP3(50).TITLE(39).HEAD(39)  35  0008 

C1=1.0/(2.0»C(19)»C(21)»D(77))  35  0009 

C2=C1«(C(19)*D(77) )  35  0010 

C3=C1»(C(20)*D(78> )  35  0011 

C1=C1*(C(20)*C<22) >*C3  35  0012 

J  =  L<31)-5  35  0013 

Jl  =  J*3  35  0014 

F(J)=-D(79)-D(82)»D(19)»D(25)  35  0015 

F(J1)=-C2«F(J)-C3«Y(J)-C1«Y(J1)  35  0016 

J=J*1  35  0017 

Jl  =  Jl*l  35  0018 

F(J)=-D(80)-D(82)«D(20)»D(26)  35  0019 

F(J1)=-C2«F(J)-C3«Y(J)-C1»Y(J1)  35  0020 

J  =  J*\  35  0021 

Jl  =  Jl*l  35  0022 

F(J)=-D(81)-D(82)»D(21)»D(27)  35  0023 

F(J1)=-C2*F(J)-C3«Y(J)-C1»Y(J1)  35  0024 

RETURN  35  0025 

END  35  0026 
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SUBROUTINE  FREG  36  0000 

C  COMPUTE  THE  DERIVATIVES  OF  THE  DEPENDENT  VARIABLES  OF  THE  REGULA-  36  0001 
C      TORS  OF  THE  GENERATING  UNITS.  36  0002 

C  COMPUTE  THE  AVERAGE  THREE-PHASE  POWERS  AND  THE  PEAK  REACTIVE  POW-  36  0003 
C  ERS  PER  PHASE  OF  THE  GENERATING  UNITSt  AND  THEIR  CONTRIBUTIONS  TO  36  0004 
C  THE  LOAD  OF  THE  MAIN  BUS.  ALSOt  COMPUTE  THE  FIELD  FORCING  CURRENTS  36  0005 
C      AND  THE  FIELD  VOLTAGES  OF  THE  GENERATING  UNITS.  36  0006 

COMMON  A,B,BO»C»CD,D»EG,EP»F»G.GB,Q.VV»W,X,XLtXM»Y»Z»L»LGl»LG2,LG3  36  0007 
1,LP1»LP2,LP3, TITLE, HEAD  36  0008 

DIMENSION  A (80* 35) ,B (99,35) .60 (ft) ♦C(50).CD (3.4) .0(120) tEG (50) .EPJ536  0009 
10),F(316),G(21»35),GB(3,4,9),0(316).VV(21,9)»W(6,6»9),XL(6,10,35),36  0010 
?XM<6»10,9) ,Y(316)»Z(6»6»35),L(134> ,LG1 (50) »LG2(50) »LG3(50) .LP1 (50)36  0011 
3»LP2(50) ,LP3(50) .TITLE ( 39) »HEAD(39)  36  0012 

NT=L(1) 
C      TO  39 — .  COMPUTATION  OF  AVERAGE  THREE-PHASE  POWERS  AND  OF  PEAK  RE- 
C      ACTIVE  POWERS  PER  PHASE. 

DO  39  1=1. NT 

J=L(I*50) 

J2=J»1 

J3=J2*1 

B(1»I)=0.001»(D(35)»Y(J)*D(36)»Y(J2MD(37)»Y(J3)) 

B(2»I)=1.9245E-4»(Y(J)»D(39) »Y ( J2) »D (40) *Y ( J3) »D (38) ) 

D(3)=D(3)*B(1.I) 

D(4)=D(4)*B(2,I) 
39  CONTINUE 
C      TO  ABOVE  701  —  ♦  FOR  REACTIVE  LOAD  SHARE  CONTROL. 

SW=10.0 

IF  (L(5) .LE.O)  GO  TO  700 

TAP  =  D(3)-D(5) 

IF(TAP.LE.1.0E-10)GO  TO  702 

NU=L(1>*L(2)*L(3>*L<4)*1 

J=L(NU*50) 

CA  =  D(28)-Y(J) 

CB  =  D(29)  -  Y(J*1) 

CC  =  D(30)-Y(J*2) 

GO  TO  701 

700  TAP  =  D(3) 
IF(TAP.GT.1.0E-10)GO  TO  703 

702  SW=0.0 
D38=ABS(D(38) ) 
D39=ABS(D(39) ) 
D40=ABS(D<40) ) 
GO  TO  701 

703  CA=D(28) 
CB  =  D(29) 
CC  =  D(30) 

C      TO  52—.  COMPUTE  THE  DERIVATIVES. 

701  DO  52  1=1. NT 
J=L(I*50> 
J8=J*7 
J9=J*8 
J10=J*9 
J11=J*10 

C      TO  704—,  COMPUTE  THE  FIELD  FORCING  CURRENT  AND  THE  FIELD  VOLTAGE. 
B(13,I)=2.0»(A(12,I)*A(31,I))»(B(5,I)*(A(1,I)*A(2,I)*1.5»A(3 
1,I))»(Y(J)»B(19,I)*Y(J*1)*B(23,I)*Y(J*2)»B(21,I) ) -D(35) »8 (20, I ) 
2D(36)«B(24,I)-D(37)»B(22,I) ) / (3.0«A (31 , I ) »A (4, I ) »B (5, I ) ) 
B(14,I)=A(31,I)»(B(13,I)-Y(JO>  )»Y(J8) 

704  IF(ABS(B(14,I)).GT.A(32,I>)  B ( 14, I ) »SIGN ( A (32, I ) ,B ( 14, I ) ) 
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F(J9)=(A(29.I)»(B(14.I)-A(36.I) >-Y(J9) > /A (30 . I > *A (37. I ) 

F(J8)  =  (A(27»I)»(A(22.I)-Y(J10>-F(J9> >-Y(J8> )/A(?8tI) 

F(J10)»Y(J11) 
C      TO  616—.  THREE-PHASE  FULL  WAVE  RECTIFIER  AND  REACTIVE  LOAD  SHARE 
C      CONTROL. 

IF(SW.LE.O.O)  GO  TO  616 

XLS=B(1.I)/TAP 

038  =  A8S(D(38)»A(23.I)«(Y(J*2)-XLS*CC) ) 

D39  =  ABS(D(39)»A(23.I)»(Y(J)-XLS»CA>) 

040  =  ABS(0(40)»A(23»I)»(Y(J»1)-XLS»CB) ) 
616  B(12.I)  =  AMAX1 (D38.D39.D40) 
52  F(J11>  =  (A(24,I)»B(12.I)-A(25.I)»Y(J11)-Y(J10) )/A(26.I) 

RETURN 
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SUBROUTINE  YPRIMG  37  0000 

C      THIS  IS  A  MAIN  SUBROUTINE  IN  THE  COMPUTATION  OF  THE  DERIVATIVES  OF  37  0001 

C      THE  DEPENDENT  VARIABLES  OF  THE  GENERATORS  OF  THE  MG  SETS.  37  0002 

COMMON  A»B»BO»C.CD»D»EG.EP»F»G»GB«Q«VV.W.X«XL»XMtY»Z»L»LGl.LG2.LG3  37  0003 

l.LPl»LP2»LP3»TITLE»HEAD  37  0004 

DIMENSION  A < 80*35) .B(99»35) »BO(8) »C<50) .CD (3»4) ,D ( 120> »EG(50> »EP (537  0005 

10>.F<316)»G(21.35)»GB<3»4.9).Q<316>»VV(21»9)»W(6.6»9>»XL(6.10.35>»37  0006 

2XM (6.10»9) »Y(316) »Z (6.6. 35) .L < 1 34) »LG1 < 50 ) «LG2 (50 ) »LG3(50) .LP1 (50)37  0007 

3.LP2(50)»LP3(50).TITLE(39),HEAD(39)  37  0008 

C      TO  250--.  COMPUTE  THE  DERIVATIVES  OF  THE  WINDING  CURRENTS  OF  THE    37  0009 

C      SYNCHRONOUS  ALTERNATORS.  37  0010 

C      TO  50—.  SET  UP  THE  INDUCTANCE  AND  ((IMPEDANCE))  MATRICES.  37  0011 

CALL  LMATG  37  0012 

CALL  IMATG  37  0013 

CALL  SATG  37  0014 

50  CALL  SATEFG  37  0015 

CALL  RLGB  37  0016 

N1=L(1)»1  37  0017 

N2=N1»L(2)-1  37  0018 

C      TO  100«»  COMPUTE  THE  CURRENTS  OF  THE  RL  LOADS.  37  0019 

DO  100  I=N1»N2  37  0020 

B(86.I)=0.0  37  0021 

B(87.I)=0.0  37  0022 

B(88»I)=0.0  37  0023 

K=L(I*50)*8  37  0024 

J=I  37  0025 

IF(A(69.I> .LT.0.0)  J=J-1  37  0026 

B(86.J)=B(86, J) *Y(K)  37  0027 

B(87.J)=B(87,J) *Y(K*1)  37  0028 

100  B(88.J)=B(88,J)»Y(K*2>  37  0029 

CALL  XMMAT  37  0030 

CALL  TRIAG  37  0031 

C      TO  200  —  .  SET  UP  THE  MATRIX  GB  CONTAINING  THE  COEFFICIENTS  OF  THE   37  0032 

C      EQUATIONS  RELATING  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOADS.  37  0033 

DO  120  I=N1»N2  37  0034 

J=I-L(1)  37  0035 

DO  120  K=1.3  37  0036 

DO  120  M=l,4  37  0037 

120  GB(K,M,J)=0.0  37  0038 

CALL  GBMAT  37  0039 

DO  200  I=N1,N2  37  0040 

IF(A(69,I) .LT.0.0)  GO  TO  200  37  0041 

J=I-L(1)  37  0042 

IF(X.LT.A(75,I) ,0R.X.GT.A(76»I) )  GO  TO  150  37  0043 

C      TO  130  —  .  ADJUST  MATRIX  GB  DURING  LINE-TO-LINE  FAULTS  ON  BUSES  OF   37  0044 

C      MG  SETS.  37  0045 

K=IFIX(A(77.I)*0. 00000001)  37  0046 

IFIK.LE.3)  GO  TO  150  37  0047 

GB(2.1.J)=GB(2.1,J)*GB(1.1.J)*1.0  37  0048 

GB(2.2.J)=GB(2,2.J)*GB(l.?.J)M.O  37  0049 

GB(2.3.J)=GB(2,3»J)»GB(1.3.J)  37  0050 

GR(2»4. J)=GB(2.4,J)*GB(1,4. J)  37  0051 

GR(3,3.J)=GB(3.3.J) ♦l.O  37  0052 

GB(1.1,J)=B(83,I)  37  0053 

GB(1,2.J)=-B(84,I)  37  0054 

GB(1»3.J)=0.0  37  0055 

130  GB(1.4.J)=B(81.I)«B(87.I)-B(80»I)«B(86»I)  37  0056 

GO  TO  200  37  0057 

150  GB(1.1.J)=GB(1.1,J)*1.0  37  0058 
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GB(2»2.J)=GB(2,2,J>*1.0  37  0059 

GB(3.3»J)=GB(3»3,J) ♦l.O  37  0060 

200  CONTINUE  37  0061 

CALL  GBSOLV  37  0062 

250  CALL  FGEN  37  0063 

C      TO  300— ♦  COMPUTE  THE  PHASE  AND  LINE-TO-LINE  VOLTAGES  OF  THE  BUSES  37  0064 

C      OF  THE  MG  SETS.  37  0065 

DO  300  I=N1.N2  37  0066 

IF(A(69,I) .LT.0.0)  GO  TO  300  37  0067 

B(74*I)=B(80*I)*B(86tI)*B(83*I)*B(89»I)  37  0068 

B(75*I)=B(81f I)*B(87tI)«B(84«I)«B(90t I)  37  0069 

B(76*I)=B<82«I)*B(88*I)*B<85«I)*B(91f I)  37  0070 

B(77»I)=B(74,I)-B(75»I)  37  0071 

B(78,I)=B(75,I)-B(76.I)  37  0072 

B(79,I)=B(76,I)-B(74»I)  37  0073 

300  CONTINUE  37  0074 

CALL  FREGG  37  0075 

RETURN  37  0076 

END  37  0077 
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SUBROUTINE  LMATG 
C      SET  UP  THE  INDUCTANCE  MATRICES.  WI 
C      OF  THE  SYNCHRONOUS  ALTERNATORS  OF 

COMMON  A,B,BO»C»CD,D,EG»EP»F,G,GR» 
1,LP1,LP2,LP3,TITLE,HEAD 

DIMENSION  A(80,35> ,B(99,35),B0(8> , 
10) ,F (316) ,G (21,35) ,GB (3,4,9) ,Q (316 
2XM(6,10,9) ,Y(316),Z(6»6,35),L<134) 
3,LP2(50) ,LP3(50) ,T ITLE ( 39) ,HEAD (39 

CC=0. 866025404 

N1=L(1) *l 

N2=N1*L(2)-1 

DO  10  I=N1,N2 

J=I-L(1) 

K=L(I*50)*14 


THOUT  FIELD  SATURATION  EFFECTS, 
THE  MG  SETS. 
Q,VV»W,X»XL»XM,Y,Z»L»LG1»LG2,LG3 

C(50) ,CD(3,4),D(120) ,EG(50) ,EP(5 
) ,VV(21,9) ,W (6,6,9) , XL (6, 10, 35) , 
,LGK50),LG2(50),LG3(50)  ,LP1  (50) 

) 


XM(1 
XM(2 
XM(3 
XM(2 
XM(3 
XM(3 
B<49 
B(50 
C1=0 


C2=CC»B(49,I> 


C3  =  0 


C4=CC«B(50,I) 


B(51 
B(52 
B(53 
B(54 
XM(4 
XM(4 
XM(4 
XM(4 
XM(5 
XM(5 
XM(5 
XM(5 
XM(5 
XM(6 
XM(6 
XM(6 
IF(A 


B(55 
B(56 
C1  =  0 


C3  =  0 


8(57 
B(58 
B(59 
B(60 
XM(1 
XM(2 
XM(3 
XM(2 


1,J)=A(31,I) 
1,J)=-A(32,I) 
1,J)=XM(2,1,J) 
2,J)=XM(1,1,J) 
2,J)=XM(2,1 ,J) 
3,J)=XM(1,1,J) 
I)=COS(Y(K) ) 
I)=SIN(Y(K) ) 
5»B(49,I) 


5»B(50,I) 


I)=-C1-C4 

I)=-C3*C2 

I)=-C1*C4 

I)=-C3-C2 

1,J)=-A(34,I)»B(49,I) 

2»J)=-A(34,I)«B(53,I) 

3,J)=-A(34,I)»B(51,I) 

4,J)=A(37,I) 

1,J)=-A(35,I)»B(49,I) 

2,J)=-A(35,I)»B(53,I) 

3,J)=-A(35,I)»B(51,I) 

4,J)=A(38,I) 

5,J)=A(39,I) 

1,J)=A(36,I)»B(50,I) 

2,J)=A(36,I)«B(54,I) 

3,J)=A(36,I)»B(52,I) 

33,1) .LE.0.0)  GO  TO  8 


TO  ABOVE  8—,  SALIENICY  EFFECTS. 


I)=2.0*B(49,I)«B(49,I)-1.0 

I)=2.0»B(49,I)»B(50,I) 

5»B(55,I) 


C?=CC«B(55,I) 


5»B(56,I) 


C4=CC«B(56,I) 


I)=-C1-C4 

I)=-C3»C2 

I)=-C1*C4 

I)=-C3-C2 

1,J)=XM(1,1,J).A(33,I)*B(55,I 

1,J)=XM(2,1,J)*A(33,I)»B(59,I 

1,J)=XM(3,1,J)»A(33,I)*B(57,I 

2,J)=XM(2,2,J)*A(33,I)*B(57,I 
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XM<3< 

>2* 

XM(3i 

,3. 

XM(1 

.2. 

XM<1 

.3. 

XM(1 

|4» 

XM(1 

.5. 

XM(2 

.3. 

XM(2 

.4, 

XM(2 

.5, 

XM(3 

>4* 

XM(3 

.5, 

XM<4 

.5. 

XM(1 

>6t 

XM(2 

.6, 

XM(3< 

>6* 

XM<4< 

.6. 

XM(5 

.6, 

♦J)=XM(3,2 
♦J)=XM(3,3 
»J)=XM(2»1 
♦J)=XM(3»1 
♦J)=XM<4,1 
»J)=XM(5»1 
,J)=XM(3,2 
»J)=XM<4,2 
»J)=XM(5»2 
.J)=XM(4,3 
»J)=XM<5»3 
«J)=XM(5,4 
♦J)=XM(6.1 
»J)=XM<6»2 
»J)=XM<6.3 
♦J)=XM<6,4 
»J)=XM(6»5 


J)*A(33.I)«B(55»I) 

J)*A<33»I)«B(59»I) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 

J) 


10 


CONTINUE 

RETURN 

END 
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SUBROUTINE  IMATG 
C      SET  UP  THE  ((IMPEDANCE))  MATRICES.  WITHOUT  FIELD  SATURATION  EF- 
C      FECTS.  OF  THE  SYNCHRONOUS  ALTERNATORS  OF  THE  MG  SETS. 

COMMON  A.B.B0.C.CD.0.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.L 
1.LP1.LP2.LP3. TITLE. HEAD 

DIMENSION  A (80.35) .B (99.35) .BO (8) .C(50> .CD ( 3.4) .D ( 120) .EG (50 > .EP 
10).F(316).G(21.35).GB(3.4.9),Q(316).VV(21.9).W(6.6.9).XL(6.10.35 
2XM(6.10.9),Y(316) .Z ( 6.6. 35) .L ( 1 34) ,LG1 (50) .LG2 (50) .LG3 (50 ) .LP1 (5 
3.LP2(50) .LP3(50) .TITLE (39) .HEAD (39) 
N1=L(1)*1 
N2=N1*L(2)-1 
DO  10  I=N1.N2 
J=I-L(1) 

IF(A(33.I) .LE.0.0)  GO  TO  3 
C      TO  ABOVE  3—,  SALIENCY  EFFECTS. 
CC=-2.0«A(33.I)*B(5.I) 
»J)=CC»B(60.I> 
.J)=CC»B(58.I) 
»J)=CC»B(56*I) 
»J)=A(41.I)»W(3»2.J) 
1J)=A(41.I)*W(1.1.J) 
»J)=A(41.I)*W(2.1.J) 
4 

,J)=A(41.I) 
>J)=0.0 
.J)=0.0 
.J)=A(41.I) 
>J)=0.0 
-J)=A(41.I) 
:34.I)«B(5.I) 
-J)=CC»B(50.I 


W(2 

W(3 

W(3 

W(l 

W(2 

W(3 

GO 

W(l 

W(2 

W(3 

W(2 

W(3 

W(3 

cc= 

W(4 
W(4 
W(4 
CC  = 
W(5 
W(5 
W(5 
CC= 
W(6 
W(6 
W(6 
W(l 
W(l 
W(2 
W(2 
W(3 
W(3 
W(l 
W(l 
W(2 
W(l 
W(2 
W(3 


J)=CC»B(54.I 
J)=CC»B(52.I 
35.I)»B(5.I) 
J)=CC«B(50.I 
J)=CC»B(54.I 
J)=CC»B(52,I 
(36,I)»B(5.I) 
l.J)=CC»B(49,I 
2.J)=CC»B(53.I 
3»J)=CC»B(51.I 
4.J)=W(4.1,J) 
5.J)=W(5.1.J) 
4.J)=W(4.2.J) 
5.J)=W(5,2,J) 
4»J)=W(4,3.J) 
5.J)=W(5.3.J) 
2.J)=W(2.1.J) 
3.J)=W(3.1,J) 
3,J)=W(3.2.J) 
6. J) =W (6.1. J) 
6,J)=W(6,2.J) 
J)=W(6.3.J) 


10 


CONTINUE 

RETURN 

END 
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SUBROUTINE  SATG  40  0000 

C  DETERMINE  IF  THE  FIELDS  OF  THE  SYNCHRONOUS  ALTERNATORS  OF  THE  MG  40  0001 
C  SETS  ARE  SATURATED,  AND  COMPUTE  THE  FIELD  FLUX  LINKAGES,  THE  EQUI-  40  0002 
C  VALENT  FIELD  SATURATION  CURRENTS,  AND  THE  DERIVATIVES  OF  THE  40  0003 
C      LATTER  WITH  RESPECT  TO  THE  FORMER.  40  0004 

COMMON  A,B»B0»C»CD»D»EG,EP»F,G»GB»Q»VV»W,X,XL»XM,Y»Z,L»LG1,LG2»LG3  40  0005 
1,LP1,LP2,LP3, TITLE, HEAD  40  0006 

DIMENSION  A (80,35) ,H (99,35) ,BO(8) ,C(50) ,CD(3,4) ,0(120) ,EG(50) ,EP(540  0007 
10),F(316>,G(21»35).GB<3»4,9),Q(316),VV(21»9),W(6»6»9).XL<6,10»35)»40  0008 
?XM(6,10,9) ,Y(316),Z(6,6,35),L<134) ,LG1 (50),LG2<50) ,LG3(50),LP1 (50)40  0009 
3,LP2(50) ,LP3(50) , TITLE (39) , HEAD (39) 

N1=L(1)*1 

N2=N1*L(2)-1 

DO  10  I=N1,N2 

J=L(I*50)*7 

B(34,I)=0.0 

N=I-L(1) 

DO  4  K=l,5 

M  =  J*K 
4  R(34,I)=B(34,I)*XM(4,K,N)«Y(M) 

IF(B(34,I) .GT.A(45,I) )  GO  TO  6 

B(35,I)=0.0 

B(36,I)=0.0 

L(N*86>=1 

GO  TO  10 
6  Cl=A(45,I)-0.5/(A(46,I)«A(37,I) ) 

C2=C1»C1*B(34,I)/(A(46,I)»A(37,I) ) -A (45, I ) »A (45, I ) 

C2=SQRT(C2) 

B(34,I)=C1*C2 

B ( 35 , I ) = A ( 46 , I ) » ( B  <  34 ♦ I ) - A ( 45 , I ) ) » ( B ( 34 , I ) - A ( 45 , I ) ) 

B(36,I)=2.0*A(46»I)«MB(34,I)-A(45,I) ) 

L(N*86)=2 
10  CONTINUE 

RETURN 

END 
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SUBROUTINE  SATEFG  41  0000 

C      ADD  THE  FIELD  SATURATION  EFFECTS  TO  THE  INDUCTANCE  AND  ((IMPED-     41  0001 
C      ANCE))  MATRICES  OF  THE  SYNCHRONOUS  ALTERNATORS  OF  THE  MG  SETS.      41  0002 

COMMON  A,8,B0,C,CD,D,EG,EP,F,G,GB»Q,VV,W,X,XL»XM,Y.Z.L»LG1,LG2«LG3  41  0003 
1,LP1»LP2»LP3.TITLE.HEAD  41  0004 

DIMENSION  A (80, 35) ,B (99, 35) ,80(8) ,C (50) .CD <3t 4) .0(120) .EG (50) .EP( 541  0005 
10) .F(316) .G(21.35) .GB< 3.4,9) ,Q(316),VV(21»9),W(6»6,9),XL(6,10,35),41  0006 
2XM(6,10,9) .Y(316).Z(6.6,35),L<134) ,LG1 (50),LG2<50) ,LG3 (50 ) ,LP1 (50 ) 41  0007 
3,LP2(50),LP3(50) , TITLE ( 39) , HEAD (39) 

N1*L(1>*1 

N2=N1*L(2)-1 

DO  10  I=N1,N2 

J=I-L(1) 

L80=L(J*86) 

GO  TO  (10,5),L80 
5  C1=A(34,I)»B(36,I)/(1.0*A(37,I)*B(36,I) ) 

C2=C1»A(34,I) 

C3=C1»B(49,I) 

C4=C2»B(49,I) 

XM(1»1,J)=XM(1,1,J>-C4»B(49,I) 

XM(2,1,J)=XM(2,1,J)-C4*B(53.I) 

XM(3,1, J)=XM(3, 1,J)-C4«B(51, I) 

XM(4,1,J)=XM(4,1,J)*C3«A(37,I) 

XM(5,1,J)=XM(5,1,J)*C3«A(38,I) 

C3=C1«B(53,I) 

C4=C2«B(53,I) 

XM(2,2,J)=XM(2,2,J)-C4»B(53,I) 

XM(3,2,J)=XM(3,2,J)-C4«B(51,I) 

XM(4,2.J)=XM(4,2.J)*C3»A(37,I) 

XM(5,2.J)=XM(5,2,J) ♦C3«A(38,I) 

XM(3,3,J)=XM(3,3,J)-C2»B(51,I)«B(51,I) 

C3=C1«B(51,I) 

XM(4,3,J)=XM(4,3,J) ♦C3*A(37,I) 

XM(5,3,J)=XM(5,3,J) *C3«A(38,I) 

C3=C1«A(37,I)/A(34,I) 

XM(4,4,J)=XM(4,4,J)-C3*A(37,I) 

XM(5,4,J)=XM(5,4,J)-C3»A(38,I) 

XM(5,5,J)=XM(5,5,J)-C1«A(38,I)»A(38,I>/A(34,I> 

C1=C1»B(5,I) 

C2=C2»B(5,I) 

C3=C1»B(50,I) 

C4=C2*8(50,I) 

W ( 1 , 1 , J ) =W ( 1 , 1 , J ) *C4*8 ( 49 , I ) 

W(2,1,J)=W(2,1,J)*C4»B(53,I) 

W(3,1,J)=W(3,1,J)*C4«B(51,I) 

W(4,1,J)=W(4.1.J)-C3*A(37,I) 

W(5,1»J)=W(5»1»J)-C3»A(38,I) 

C3=C1«B(54,I) 

C4=C2»B(54,I) 

W(1.2.J)=W(1»2.J)*C4«B(49.I) 

W(2.2.J)=W(2,2.J)*C4*B(53,I) 

W(3,2,J)=W(3,2,J)*C4*B(51,I) 

W(4,2,J)=W(4,2,J)-C3»A(37,I) 

W(5,2»J)=W(5,2,J)-C3*A(38,I) 

C3=C1*B(52»I) 

C4=C2«B(52,I) 

W(1,3,J)=W(1,3,J)*C4»B(49,I) 

W(2,3,J)=W(2,3,J)*C4«B(53,I) 

W(3,3,J)=W(3,3,J)*C4*B(51,I) 
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<»1  0059 

W(4.3.J>=W(4,3,J>-C3»A<37,I)  41  0060 

W(5»3.J>=W(5,3»J)-C3«A(38,I)  41  0061 

XM(1»2.J)=XM<2.1»J>  *1  0062 

XM(l»3tJ)=XM(3»l.J)  41  0063 

XM(lt4.J)=XM(4,li.J>  41  0064 

XM(l»5.J)=XM(5,lf J>  41  0065 

XM(2.3tJ)=XM(3»2»J)  41  0066 

XM(2.4»J)=XM<4,2»J>  41  0067 

XM(2»5»J)=XM<5,2.J)  4!  0068 

XM(3.4»J)=XM<4,3.J>  4!  0069 

XM(3»5.J)=XM(5.3tJ)  41  0070 

XM(4,5»J)=XM(5,4,J)  M  007i 

Cl=A(34,I)»B«5tI)  41  0072 

B(37»I)=C1»B(50.I)  41  0073 

B(38»I)=C1»B(54«I)  41  0074 

B(39»I)=C1»B(52»I)  41  0075 

10  CONTINUE  41  0076 

RETURN  41  0077 
END 
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SUBROUTINE  RLGB  42  0000 

C      COMPUTE  THE  INSTANTANEOUS  VALUES  OF  THE  PHASE  RESISTANCES  ANO  IN-   42  0001 

C      DUCTANCES  OF  THE  RL  LOADS  OF  THE  MG  SETS.  42  0002 

COMMON  A.B.B0.C,CD.D.EG,EP»F,G.GB.Q.VV.W.X.XL.XM.Y.Z»L«LG1.LG2.LG3  42  0003 

1.LP1.LP2.LP3. TITLE, HEAD  42  0004 

DIMENSION  A(80»35) .R (99,35) .BO (8) »C(50) .CD (3.4) .0(120) tEG(50) .EP(542  0005 

10>.F(316>,G(21.35).GB(3.4»9).G(316>.VV<21.9).W(6.6.9).XL(6.10.35>.42  0006 

2XM(6,10.9) .Y(316) .Z (6.6.35) .L ( 134) ,LG1 (50) .LG2 (50) »LG3 (50 ) .LP1 (50)42  0007 

3,LP2(50) .LP3(50) , TITLE < 39) .HEAD (39) 

N1=L(1)*1 

N2=N1*L(2)-1 

DO  100  I=N1.N2 

C1=A(70.I) 

C2=A(71.I) 

DO  10  J=80.82 

B(JO.I)=C2 

10  B(J,I)=C1 

IF(X.LT.A(73.I) )  GO  TO  20 
C      TO  15 — ♦  STEP  CHANGES  IN  THE  RL  LOADS. 
C1=1.0*A(74.I) 
DO  15  J=80.85 
15  B(J.I)=C1»B(J,I) 
20  IF(X.LT.A(78,I) )  GO  TO  30 
C      TO  25—.  SINUSOIDAL  VARIATIONS  OF  THE  RL  LOADS. 
C1=A(79.I)«(X-A(78.I) ) 
C2=1.0*A(80»I)»SIN(C1) 
C1=A(79.I)»A(80.I)»COS(C1) 
DO  25  J=80.82 
K=J*3 

B(J.I)=C2»B(J.I)*C1*B(K.I) 
25  B(K.I)=C2»B(K.I) 

30  IF(X.LT.A(75,I) .OR. X .GT. A ( 76. I ) )  GO  TO  100 
C      TO  100—.  ADJUST  VALUES  DURING  ONE.  TWO.  OR  THREE  PHASE 
C      BUSES  OF  MG  SETS. 

K=IFIX (A (77, I) .0.00000001) 
IF(K.LF.0.OR.K.GT.3)  GO  TO  100 
GO  TO  (70.60.50) .K 
50  B(82,I)=0.0 
B(85.I)=0.0 
60  B(81.I)=0.0 
B(84,I)=0.0 
70  B(80.I)=0.0 
B(83.I)=0.0 
100  CONTINUE 
RETURN 
END 
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SUBROUTINE  XMMAT  43  0000 

C  SET  UP  THE  MATRIX  XM  CONTAINING  THE  COEFFICIENTS  OF  THE  EQUATIONS  43  0001 
C  RELATING  THE  WINDING  CURRENT  DERIVATIVES  OF  THE  SYNCHRONOUS  ALTER-  43  0002 
C  NATORS  OF  THE  MG  SETS  TO  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOADS  43  0003 
C      OF  THE  RESPECTIVE  BUSES.  43  0004 

COMMON  A*B.B0»C*CD.D.EG.EP*F*G.GB*Q.VV»W*X*XL*XM»Y*Z*L»LG1.LG2.LG3  43  0005 
1*LP1*LP2*LP3.TITLE»HEAD  43  0006 

DIMENSION  A (80* 35) *B (99*35) *BO(8> tC(50) .CD (3. 4)  .D ( 120 > .EG<50) .EP<543  0007 
10) .F (316) ,G (21.35) .GB(3.4*9).Q (316) *VV (21*9) *W (6*6*9) ,XL (6. 10*35) »43  0008 
2XM(6,10.9) *Y (316) *Z (6*6.35) *L ( 134) *LG1 (50) *LG2(50 >  *LG3(50) *  LP  1 (50)43  0009 
3*LP2<50) ,LP3(50) .TITLE (39) .HEAD (39) 

N1=L<1>*1 

N2=N1*L(2)-1 

DO  100  I=N1.N2 

J=L(I*50)*8 

K=I-L(1> 

M=I 

IF(A(69,I> .LT.0.0)  M=M~1 

C1=B(80.M)»B(86.M> 

C2=B(81.M)«B(87.M) 

C3=B(82.M)*B(88.M) 
C      TO  2 — .  CONTRIBUTIONS  FROM  THE  GROUNDING  REACTORS. 

C4=A(61»I) 

IF(C4.LE.0.0)  GO  TO  3 

DO  2  11=1*3 

DO  2  12=1.3 

2  XM(I1.I2.K)=XM(I1.I2,K)*C4 

3  DO  10  11=1.6 
DO  5  12=7,10 

5  XM(I1.I2.K)=0.0 
10  CONTINUE 

XM(1,7,K)=-C1*B(35,I)*B(37.I) 

XM(1*8»K)=-B(83.M) 

XM(2»7.K)=-C2*B(35.I)«B(38*I) 

XM(2.9,K)=-B(84*M) 

XM(3*7.K)=-C3*B(35.I)»B(39*I) 

XM(3.10,K)=-B(85.M) 
C      TO  35—.  CONTRIBUTIONS  FROM  THE  FIELD  VOLTAGE.  (EXCITER 

IF(ABS(Y(J*7) ) .GT.A(60.I>)  Y < J»7) =SIGN ( A (60. I > . Y ( J*7> > 

IF(ABS(B(42.I) ) .LT.A(59.I) )  GO  TO  30 

XM(4»7»K)=SIGN(A(59.I) .B(42,I) ) 

GO  TO  40 
30  C4=2.0«(A(42.I)*A(58.I) ) / (3.0*A (34* I ) *B (5* I ) ) 

C5=C4» (A(31.I)*A(32,I)* 1 .5»A ( 33 . I ) ) *B (5, I ) 

XM(4,7.K)=C5»(Y(J)»H(49.I)»Y(J*1)*B(53*I)*Y(J*2)*B(51.I) )-C4»(B(80 
1,M)«B(86.M)*B(50.I) *B (81 »M> »B (87.M) »B (54* I ) *B(82.M) *B (88.M) »B (52. I 
2) )*Y(J*7)-A(58,I)»Y(J*3) 

XM(4.8,K)=-C4»B(83.M)»B(50.I) 

XM(4»9.K)=-C4*B(84*M)*B(54»I) 
35  X M ( 4 . 1 0 • K ) s-C4*B ( 85  *  M ) *B ( 52  *  I ) 
40  DO  60  11=1.6 

DO  50  12=1.6 

N=J*I2-1 
50  XM(I1.7.K)=XM(I1.7.K)-W(I1.I2.K)»Y(N1 
60  CONTINUE 
100  CONTINUE 

RETURN 

END 
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SUBROUTINE  TRIAG  44  0000 

C      FOR  EACH  SYNCHRONOUS  ALTERNATOR  OF  THE  MG  SETSt  TRI ANGULARIZE  THE   44  0001 
C      CORRESPONDING  PART  OF  THE  MATRIX  XM.  44  0002 

C      THE  RUN  IS  ABORTEO  IF  ANY  SUCH  PART  OF  XM  IS  SINGULAR,  AND  A  COM-   44  0003 
C      MENT  IS  WRITTEN  IN  TAPE  6.  44  0004 

COMMON  A,B»B0»C,CD,D»EG,EP,F,G,GB»Q»VV,W,X,XL»XM,Y»Z»L»LG1»LG2,LG3  44  0005 
1,LP1*LP2»LP3»TITLE,HEAD  44  0006 

DIMENSION  A(80»35)»B(99,35) ,BO<8) »C(50),CD(3»4>,0(120),EG(50> ,EP(544  0007 

10).F(316) ,G (21,35) ,GB(3,4,9),Q (316) »VV (21,9) »W (6,6, 9), XL (6.10 , 35) ,44  0008 

2XM(6,10,9) ,Y(316) ,Z (6,6,35) ,L ( 134) ,LG1 (50) ,LG2 (50) ,LG3 (50) ,LP1 (50)44  0009 

3,LP2(50) ,LP3<50) , TITLE (39) ,HEAD(39)  44  0010 

100  FORMAT (1H1,24HABN0RMAL  EXIT  FROM  TRIAG/31H  THE  XM  MATRIX  OF  MG  SET  44  0011 

1  NUMBER, 13, 12H  IS  SINGULAR) 

NS=L(2) 

DO  23  1=1, NS 

J=7 

3  J=J-1 
IF(ABS(XM(J,J,I) J-1.0E-30)  4,4,12 

4  IF(J-l)  5,5,6 
C      SINGULAR  MATRIX.  ABORT  RUN, 

5  WRITE(6,100)  I 
CALL  EXIT 

6  J1=J 

7  J1=J1-1 
IF(A8S(XM(J1,J,I) )-1.0E-30)  8,8,9 

8  IF(Jl-l)  5,5,7 

9  DO  10  K=1,J 
W1=XM(J,K,I) 
XM(J,K,I)=XM(J1,K,I) 

10  XM(J1,K,I)=W1 
DO  11  K=7,10 
W1=XM(J,K,I) 
XM(J,K,I)=XM(J1,K,I) 

11  XM(J1,K,I)=W1 

12  JJ=J-1 
IF(JJ)  15,15,13 

13  DO  14  K=1,JJ 

14  XM(J,K,I)=XM(J,K,I)/XM(J,J,I) 

15  DO  16  K=7,10 

16  XM(J,K,I)=XM( J,K,I)/XM(J,J,I) 
IF(JJ)  23,23,17 

17  J1=J-1 

18  IF(XM(J1,J,I) )  19,22,19 

19  DO  20  K=1,JJ 

20  XM(J1,K,I)=XM(J1,K,I)-XM(J1,J,I)»XM(J,K,I) 
DO  21  K=7,10 

21  XM(J1,K,I)=XM(J1,K,I)-XM(J1,J,I)»XM(J,K,I) 

22  J1=J1-1 
IF(J1)  3,3,18 

23  CONTINUE 
RETURN 
END 
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SUBROUTINE  GBMAT  45  0000 

C      FOR  EACH  BUS  OF  THE  MG  SETS.  COMPUTE  THE  CONTRIBUTIONS  TO  THE  COR-  45  0001 

C      RESPONDING  PART  OF  THE  MATRIX  GB  FROM  THE  SYNCHRONOUS  ALTERNATORS   45  0002 

C      CONNECTEO  TO  THE  BUS.  45  0003 

COMMON  A,B.B0»C.CD.D.EG.EP»F.G,GB.Q.VV.W,X.XL.XM.Y»Z.L,LG1.LG2.LG3  45  0004 

l.LPl»LP2.LP3. TITLE. HEAD  45  0005 

DIMENSION  A (60* 35) .B (99. 35) .60(8) .C (50) .CD (3*4) .D( 120) .EG (50) ,EP (545  0006 
10) .F(316) »G(21.35).GB(3»4.9).Q(316) ♦ VV (21 .9) »W (6*6*9) *XL (6. 10*35) .45  0007 
2XM(6*10*9).Y(316) «Z (6.6.35) *L ( 134) »LG1 (50) *LG2 (50) »LG3 (50) *LP1 (50)45  0008 

3.LP2(50).LP3(50) . TITLE ( 39) .HEAD (39)  45  0009 

N1=L(1)*1  45  0010 

N2=N1*L<2)-1  45  0011 

DO  35  I=N1,N2  45  0012 

J=I-L(1)  45  0013 

K=J  45  0014 

IF(A(69.I) .LT.0.0)  K=K-1  45  0015 

M=IFIX(B(98,I)*0.1)  45  0016 

IF(I-M)  33*24*33  45  0017 

IF(B(95.I)>  25,25*27  45  0018 

GB(1.1»K)=GB(1.1.K)-XM(1.8.J)  45  0019 

GB(1.2.K)=GB(1»2.K)-XM(1.9*J)  45  0020 

GB(1.3,K)=GB(1.3.K)-XM(1»10.J)  45  0021 

GB(1.4,K)=GB(1,4,K)*XM(1.7,J)  45  0022 

IF(B(96»I))  26,26.31  45  0023 

GB(2.1.K)=GB(2.1.K)-XM(2.8.J)*XM(2.1.J)»XM(1.8.J)  45  0024 

GB(2*2*K)=GB(2*2.K)-XM(2.9*J)*XM(2.1*J)»XM(1*9*J)  45  0025 

GB(2.3,K)=GB(2,3.K)-XM(2*10»J)»XM(2*1»J)*XM(1.10*J)  45  0026 

GB(2.4.K)=GB(2,4,K)*XM(2.7*J)-XM(2*1,J)*XM(1.7.J)  45  0027 

IF(B(97,I))  34*34.35  45  0028 

IF(B(96.I>)  28,28.30  45  0029 
FOUR  LINES  DOWN — »  CONTRIBUTIONS  FROM  PHASE  B  WHEN  PHASE  A  OF  AN    45  0030 

ALTERNATOR  IS  DISCONNECTED  FROM  THE  BUS.  45  0031 

GB(2.1.K)=GB(2.1»K)-XM(2.8»J)  45  0032 

GB(2.2»K)=GB(2.2.K)-XM(2*9*J)  45  0033 

G8(2.3»K)=GB(2*3.K)-XM(2»10*J)  45  0034 

GB(2.4,K)=GB(2*4»K)*XM(2*7*J)  45  0035 

IF(B(97.D)  29,29*35  45  0036 

C      FOUR  LINES  DOWN — ,  CONTRIBUTIONS  FROM  PHASE  C  WHEN  ONLY  PHASE  A  OF  45  0037 

C      AN  ALTERNATOR  IS  DISCONNECTED  FROM  THE  BUS.  45  0038 

29  GB(3,1,K)=GB(3.1.K)-XM(3.8.J)*XM(3.2.J)«XM(2.8.J)  45  0039 
GB(3.2*K)=GB(3*2«K)-XM(3*9»J)*XM(3*2»J)»XM(2*9*J)  45  0040 
GB(3.3.K)=GB(3,3*K)-XM(3.10*J)*XM(3.2*J)»XM(2»10*J)  45  0041 
GB(3.4.K)=GB(3.4.K)*XM(3.7.J)-XM(3»2»J)»XM(2.7.J)  45  0042 
GO  TO  35  45  0043 

C      FOUR  LINES  DOWN—.  CONTRIBUTIONS  FROM  PHASE  C  WHEN  PHASES  A  ANO  B   45  0044 

C      OF  AN  ALTERNATOR  ARE  DISCONNECTED  FROM  THE  BUS.  45  0045 

30  IF(B(97,I) .GT.0.0)  GO  TO  35  45  0046 
GB(3.1.K)=GB(3«1.K)-XM(3.8.J)  45  0047 
GB(3.2.K)=GB(3.2.K)-XM(3.9.J)  45  0048 
GB(3.3»K)=GB(3.3.K)-XM(3.10,J)  45  0049 
GB(3.4.K)=GB(3.4.K)»XM(3.7,J)  45  0050 
GO  TO  35  45  0051 

31  IF(B(97,D)  32.32,35  45  0052 
C  FOUR  LINES  DOWN—,  CONTRIBUTIONS  FROM  PHASE  C  WHEN  ONLY  PHASE  B  OF  45  0053 
C      AN  ALTERNATOR  IS  DISCONNECTED  FROM  THE  BUS.  45  0054 

32  GB(3,1,K)=GB(3,1,K)-XM(3,8,J)«XM(3,1,J)»XM(1,8,J)  45  0055 
GB(3.2.K)=GB(3.2.K)-XM(3.9»J)*XM(3.1.J)»XM(1.9.J)  45  0056 
GB(3.3,K)=GB(3.3.K)-XM(3.10.J)*XM(3.1.J)»XM(1.10.J)  45  0057 
GB(3.4,K)=GB(3.4.K)»XM(3.7.J)-XM(3.1.J)*XM(1.7.J)  45  0058 
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GO  TO  35  45  0059 

33  G8(1*1»K)=GB(1,1»K)-XM(1.8.J)  45  0060 
GB(1.2»K)=GB<l»2.K>-XM(l,9tJ)  45  0061 
GB(lt3»K)=GR(l»3.K)-XM(l»10»J)  45  0062 
GR(l»4»K)=GBU.4tK)»XMU.7»J>  45  0063 
GB(2»l»K)=GB(2»l»K)-XM(2.8»J)»XM(2.1tJ)«XM(l»8»J)  45  0064 
GB(2.2.K)=GB(2.2«K)-XM(2»9f J) «XH (2* 1 » J>*XM( 1 *9* J)  45  0065 
GB(2*3tK)=GR(2«3tK)-XM(2*10tJ)»XM(2*ltJ)*XM(l*10tJ)  45  0066 
GR(2»4,K)=GB(2»4,K)»XM(2»7»J)-XM(2»1«J)»XM(1.7»J)  45  0067 

34  GB(3»l»K)=GB(3»l»K)-XM(3»8»J)*XM(3»2»J)»XM<2«8tJ)*XM(l»8.J)«(XM(3.  45  0068 
ll»J)-XM(2»l»J)*XM<3»2tJ>)  45  0069 

GB(3»2.K)=GB(3»2.K)-XM(3»9«J)»XM<3.2.J)»XM(2»9tJ)»XM(1.9.J)»(XM(3.  45  00  70 

ll.J)-XM(2»l»J)«XM<3,2»J)>  45  0071 

GB(3«3,K>=GB(3,3»K)-XM(3»10.J)*XM(3»2»J)»XM(2»10tJ)»XM(1.10»J)*(XM  45  0072 

1 (3»1»J)-XM(2»1»J)«XM<3»2»J) )  45  0073 

GB(3.4«K)=GB(3»4»K)*XM(3»7.J)-XM(3»2»J)*XM(2»7.J)-XM(l»7tJ)«(XM<3»  45  0074 

lltJ)-XM(2»l»J>*XM(3,2»J) >  45  0075 

35  CONTINUE  45  0076 
RETURN  45  0077 
END  45  0078 
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SUBROUTINE  GBSOLV 
C      SOLVE  FOR  THE  CURRENT  DERIVATIVES  OF  THE  RL  LOADS  OF  THE  BUSES  OF 
C      THE  MG  SETS  BY  TRI AnGULARIZING  THE  CORRESPONDING  PARTS  OF  THE 
C      MATRIX  GB. 

C      THE  RUN  IS  ABORTED  IF  ANY  SUCH  PART  OF  THE  MATRIX  GB  IS  SINGULAR. 
C      AND  A  COMMENT  IS  WRITTEN  IN  TAPE  6. 

COMMON  A.B.B0.C»CD.D.EG,EP,F,G,GB,Q,VV,W,X,XL.XM.Y.Z»L.LG1.LG2.LG3 
1.LP1.LP2.LP3, TITLE, HEAD 

DIMENSION  A (80*35) »B (99,35) .BO (8) ,C(50) »CD(3»4) .0(120) ,EG(50> ,EP(546  0008 

10>,F(316>,G(21»35)»GB(3»4,9),Q(316),VV(21»9),W(6»6»9),XL<6»10,35>»46  0009 

2XM<6,10»9) ,Y(316),Z(6,6,35).L(134) .LG1 <50>»LG2(50> »LG3(50).LP1 (50)46  0010 

3.LP2<50> .LP3<50) .TITLE (39) .HEAD (39)  46  0011 

101  FORMAT (1H1.25HABN0RMAL  EXIT  FROM  GBSOLV/31H  THE  GB  MATRIX  OF  MG  BU  46  0012 

IS  NUMBER. 13. 12H  IS  SINGULAR/1H0 ,4 ( 1X.E12.5) ) 

L2=L(2) 

DO  100  K=1.L2 

J=K*L<1> 

IF(A(69.J) .LT.0.0)  GO  TO  100 
1=4 

37  1=1-1 
IF(ABS(GB(I.I.K) >-1.0E-30)  38.38,45 

38  IF(I-l)  39.39.40 
C      SINGULAR  MATRIX.  ABORT  RUN. 

39  WRITE(6.101)  K. ( (GB ( I .M.K) .M=l ,4) , 1=1 .3) 
CALL  EXIT 

40  11=1 

41  11=11-1 
IF(ABS(GB(I1.I.K) )-1.0E-30)  42,42.43 

42  IF(Il-l)  39,39,41 

43  DO  44  M=1,I 
W1=GB(I,M,K) 
GB(I,M,K)=GB(I1,M,K) 

44  GB(I1,M,K)=W1 
W1=GB(I.4,K) 
GB(I,4,K)=GB(I1,4,K) 
GB(I1.4,K)=W1 

45  11=1-1 
IF(II)  48.48.46 

46  DO  47  M=1.II 

47  GB(I.M,K)=GB(I.M,K)/GB(I,I.K) 

48  GB(I,4,K)=GB(I,4,K)/GB(I,I,K) 
IF(II)  75,75,70 

70  11=1-1 

71  IF(GB(I1,I,K) )  72,74,72 

72  DO  73  M=1,II 

73  GB(I1,M,K)=GB(I1,M,K)-GB(I1,I,K)«GB(I,M,K) 
GB ( 1 1 , 4 , K ) =GB ( 1 1 , 4 , K  > -GB ( 1 1 , I , K ) «GB ( I , 4 , K ) 

74  11=11-1 
IF(I1)  37,37,71 

75  B(89,J)=GB(1,4,K) 
B(90,J)=GB(2,4,K) -GR ( 2 ♦ 1 , K ) »B ( 89 , J ) 

B(91,J)=GB(3,4,K)-G8(3,1,K)«B(89,J)-GB(3.2,K)*B(90,J) 
100  CONTINUE 
RETURN 
END 
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SUBROUTINE  FGEN  47  0000 

C      COMPUTE  THE  DERIVATIVES  OP  THE  WINDING  CURRENTS  OF  THE  ALTERNATORS  47  0001 
C      OF  THE  MG  SETS.  47  0002 

COMMON  A.B.B0.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3  47  0003 
1.LPI.LP2.LP3.TITLE.HEAD  47  0004 

DIMENSION  A (80. 35) .8 (99.35) .80(8)  »C(50> .CD (3. 4) *D ( 120) .EG (50) *EP (547  0005 
10) »F(316>  »G<21.35) .GB<3.4.9) »Q(316).VV<21.9) .W(6.6.9).XL(6»10.35> .47  0006 
2XM(6.10.9) »Y(316) .Z (6.6.35) »L ( 134) .LG1 (50) .LG2 (50 > .LG3 (50) .LP1 (50 ) 47  0007 
3.LP2(50) .LP3(50) .TITLE ( 39) .HEAD (39)  47  0008 

N1=L(1>*1 

N2=N1»L(2)-1 

DO  61  I=N1.N2 

J=L(I*50)*8 

J1=J*1 

J2=J»2 

J3=JO 

J4=J*4 

J5=J*5 

K=I-L(1) 

N=I 

IF(A(69,I) .LT.0.0)  N=N-1 

L43=IFIX(B(98,I)*0.1) 

IF(I.NE.L43.0R.B<95, I) .LE.0.0)  GO  TO  51 
C      PHASE  A  OF  ALTERNATOR  IS  DISCONNECTED  FROM  BUS. 

F(J)=0.0 

GO  TO  52 

51  F(J)=XM(1.7.K)*XM(1,8»K)*B(89.N)*XM(1.9.K)«B(90.N)*XM(1,10,K)«B(91 
l.N) 

52  IF(I.NE.L43.0R.B(96,I) .LE.0.0)  GO  TO  54 
C      PHASE  B  OF  ALTERNATOR  IS  DISCONNECTED  FROM  BUS. 

F(J1)=0.0 
GO  TO  55 

54  F(J1)=XM(2.7,K)»XM(2.8.K)«B(89.N)*XM(2.9.K)»B(90.N)»XM(2.10.K)«B(9 
ll.N)-F(J)»XM(2.1.K) 

55  IFU.NE.L43. OR. B(97, 1)  .LE.0.0)  GO  TO  58 
C      PHASE  C  OF  ALTERNATOR  IS  DISCONNECTED  FROM  BUS. 

F(J2)=0.0 
GO  TO  59 

58  F( J2)=XM(3.7.K)*XM(3.8.K)«B(89,N)*XM(3.9.K)»B(90.N)»XM(3.10.K)«B<9 
ll.N)-F(J)«XM(3.1,K)-F(Jl)*XM(3.2.K) 

59  F(J3)=XM(4.7.K)*XM(4.8.K)»B(89.N)»XM(4.9.K)»B(90.N)*XM(4.10.K)»B(9 
ll.N)-F(J)»XM(4,l.K)-F(Jl)«XM(4.2.K)-F(J2)»XM(4»3.K> 

F(J4)=XM(5.7,K)-F(J)«XM(5,1,K)-F(J1)*XM(5.2.K)-F(J2)*XM(5.3.K)-F(J 
13)»XM(5»4.K) 
F(J5)=XM(6.7.K)-F(J)«XM(6,1,K)-F(J1)«XM(6»2.K)-F(J2)«XM(6.3.K) 
61  CONTINUE 
RETURN 
END 


47 

0009 

47 

0010 

47 

0011 

47 

0012 

47 

0013 

47 

0014 

47 

0015 

47 

0016 

47 

0017 

47 

0018 

47 

0019 

47 

0020 

47 

0021 

47 

0022 

47 

0023 

47 

0024 

47 

0025 

47 

0026 

47 

0027 

47 

0028 

47 

0029 

47 

0030 

47 

0031 

47 

0032 

47 

0033 

47 

0034 

47 

0035 

47 

0036 

47 

0037 

47 

0038 

47 

0039 

47 

0040 

47 

0041 

47 

0042 

47 

0043 

47 

0044 

47 

0045 

47 

0046 

47 

0047 

173 


SUBROUTINE  FREGG 
C      COMPUTE  THE  DERIVATIVES  OF  THE  DEPENDENT  VARIABLES  OF  THE 
C      TORS  OF  THE  GENERATORS  OF  THE  MG  SETS. 

C      COMPUTE  THE  AVERAGE  THREE-PHASE  POWERS  AND  THE  PEAK  REACTI 
C      ERS  PER  PHASE  OF  THE  GENERATORS  OF  THE  MG  SETS*  AND  THEIR 
C      BUTIONS  TO  THE  BUS  LOADS.  ALSO.  COMPUTE  THE  FIELD  FORCING 
C      AND  FIELD  VOLTAGES  OF  THE  GENERATORS  OF  THE  MG  SETS. 

COMMON  A.B.BO»C»CD,n»EG»EP,F,G.GB,Q,VV»W»X»XL»XM,Y»Z»L»LGl 
1.LP1.LP2.LP3. TITLE. HEAD 

DIMENSION  A (80. 35) .R (99.35) .BO (8) .C (50) .CD < 3.4) .0(120) .EG< 
10).F(316>.G(21»35>.GB(3.4,9).Q(316).VV(21»9)fW<6.6.9>,XL<6 
2XM(6.10.9).Y(316) .Z (6.6.35) ,L ( 134) .LG1 (50 ) .LG2 (50 ) .LG3(50) 
3,LP2(50).LP3(50) .TITLE (39) .HEAD (39) 

N1=L(1)*1 

N2=N1*L(2)-1 
C      TO  100  —  .  COMPUTATION  OF  AVERAGE  THREE-PHASE  POWERS  AND  OF 
C      REACTIVE  POWERS  PER  PHASE. 

DO  100  I=N1,N2 

J=L(I*50)*8 

J?=J*1 

J3=J2*1 

K  =  I 

IF(A(69,I) .LT.0.0)  K=K-1 

B(31.I)=0.001«(B(74.K)*Y(J)*B(75.K)«Y(J2)*B(76.K)«Y<J3) ) 

B(32.I>=1.9245E-4»(B<78.K)*Y<J)»B(79.K)*Y(J2)*B<77.K)«Y(J3 

B(61.I)=0.0 

B(62.I)-0.0 

B(61»K)=B(61.K)*B(31»I) 

B(62.K)=B(62»K)*B(3?.I> 
100  CONTINUE 
C      TO  200  —  .  COMPUTE  THE  DERIVATIVES. 

DO  200  I=N1.N2 

J=L(I*50>»8 

J2=J*1 

J3=J2M 

J8=J*7 

J9=J8*1 

J10=J9*1 

J11=J10*1 

K=I 

IF(A(69.I) .LT.0.0)  K=K-1 
C      TO  120  —  .  COMPUTE  THE  FIELD  FORCING  CURRENT  AND  THE  FIELD 

B(41.I)=2.0«(A(42.I)*A(58,I) ) • (B (5. I ) » ( A (31 . I ) *A ( 32. I ) »1 .5 
1)«(Y(J)«B(49,I)*Y(J?)«B(53.I)»Y(J3)«B(51,I))-B(74,K)«B(50. 
2K)«B(54,I)-B(76,K)«R(52.I) ) / ( 3.0»A (58. I ) »A ( 34. I ) «B (5. I ) ) 

B(42.I)=A(58.I)«(B(41.I)-Y(J»3) )*Y(J8) 
120  IF(ABS(B(42.I) ) .GT.A(59.I) )  B (42. I ) =SIGN ( A (59. I ) .B (42, I ) ) 

F(J9)=(A(56.I)«(B<4?.I)-A<66.1) ) -Y < J9> ) /A (57. I ) *A (67. I > 

F  <  J8  >  =  ( A  <  54 , I ) • ( A ( 49 , I ) - Y ( J 1 0  > -F ( J9 ) ) - Y ( J8 ) ) / A ( 55 , I ) 

F(J10)=Y(J11) 
C      TO  180 — ,  THREE-PHASE  FULL  WAVE  RECTIFIER  AND  REACTIVE  LOA 
C      CONTROL. 

IF(B(61,K) .GT.1.0E-10)  GO  TO  150 

B77=ABS(B(77.K) ) 

B78=ABS(B(78.K) ) 

B79=ABS(B(79.K)) 

GO  TO  180 
150  XLS=B(31.I)/B(61.K) 

B77=ABS(B(77.K)*A(50.I)«(Y(J3)-XLS*B(88,K)) ) 
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B78=ABS(B<78,K)*A<50»I>»<Y(J)-XLS«B(86«K) >)  48  0059 

B79=ABS<B(79.K)*A(50.I)«<Y(J2)-XLS»B<87,K)>)  48  0060 

180  B(40»I>=AMAXl(B77»B78.B79)  48  0061 

200  F(Jll)=(A(51.I)»B(40t I)-A(52,I)»Y(J11)-Y(J10))/A(53»I)  48  0062 

RETURN  48  0063 

END  48  0064 


175 


SUBROUTINE  FMECH  49  0000 

C      COMPUTE  THE  DERIVATIVES  OF  THE  MECHANICAL  SPEEDS  OF  THE  SHAFTS  OF   49  0001 
C      THE  MG  SETS  AND  OF  THE  INDUCTION  MOTORS.  49  000? 

C      ALSOt  COMPUTE  THE  DERIVATIVES  OF  THE  ELECTRICAL  ANGLES  OF  ALL  RO-   49  0003 
C      TATING  MACHIVES  OF  THE  POWER  PLANT.  49  0004 

C      COMPUTE  THE  EM  TORQUES  OF  ALL  ROTATING  MACHINES  OF  THE  POWER  PLANT  49  0005 
C      EXCEPT  THOSE  OF  THE  GENERATING  UNITS.  49  0006 

COMMON  A,B,B0»C,CD,D»EG»EP,F,G»GB,Q,VV»W»X»XL»XM.Y.Z.L»LG1.LG2.LG3  49  0007 
1.LP1.LP2.LP3. TITLE, HEAD  49  0008 

DIMENSION  A(80»35) ,B (99, 35) ,BO (8) ,C (50 > ,CD < 3,4) ,D ( 120 ) ,EG (50 ) ,EP(549  0009 
10>»F(316>,G<21»35>,GB(3»4,9),Q<316),VV<21»9),W(6»6»9>,XL<6,10»35>»49  0010 
2XM(6.10.9).Y(316) .Z ( 6. 6. 35) .L < 1 34) .LG1 <50)»LG2<50) .LG3(50).LP1 (50)49  0011 
3,LP2(50) ,LP3( 50). TITLE (39) .HEAD (39) 

IF(L(3) .GT.O)  CALL  TORIM 

NS=L(1)*L(2)»L(3) 

DO  37  I=1»NS 

LI=L(I*99) 

J=L(I»50) 

J2=J*1 

J3=J2*1 

GO  T0(35. 34.36) .LI 
C      TO  108--.  SHAFTS  OF  MG  SETS. 
C      TO  105—,  COMPUTE  THE  TORQUES  OF  THE  GENERATORS. 

34  J9=J*8 
J10=J*9 
J11=J»10 
B ( 33 . I ) = ( A ( 34 . I > • ( Y ( J9 ♦ 3 ) -B ( 35 . I ) ) ♦ A ( 35 , I ) • Y ( J9*4 ) ) • ( 

1  Y(J9)«B(50.I)»Y(J10)«B(54,I)*Y(J11)»B(52,I) > *A (36. I > »Y ( J9*5) • 
2(Y(J9)»B(49.I)*Y(J10)*B(53.I)*Y(J11)»B(51,I) ) 

IF(A(33,I) .LE.0.0)  GO  TO  105 

B(33.I)=B(33.I)-A(33.I)»(B(56.I)*(Y(J9)»Y(J9)»2.0*Y(J10)*Y(J11) ) 
1*B(58,I)*<Y(J10)*Y(J10)*2.0»Y<J9)*Y(J11) > *B (60, I ) » < Y ( Jl 1 > «Y  ( Jl  1 ) 
2*2. 0»Y(J9)«Y(J10) ) ) 

105  B(33,I)=-0.737564«A(15,I)«B(33»I) 
C      TO  107—.  COMPUTE  THE  TORQUES  OF  THE  MOTORS. 

B(3.I)=(A(4.I)«(Y(J*3)-B(7,I) ) *A (5. I ) »Y ( J»4) ) • ( Y ( J) «B (20. I ) *Y ( J2) • 
1B(24,I)*Y(J3)»B(22,I) ) *A (6. I ) »Y ( J*5) * ( Y ( J) »B ( 19. I ) *Y ( J2) »B (23,  I ) *Y 
2(J3)*B(21,I) ) 

IF(A(3,D)  107,107,106 

106  B(3.I)=B(3.I)-A(3.I)»(B(26.I)«(Y<J)»Y(J)^2.0*Y(J3)«Y(J2) )»B(28.I)» 
1(Y(J2)*Y(J2)*2.0»Y(J)»Y(J3) ) +Q ( 30 . I ) « ( Y ( J3) »Y ( J3) ♦2.0»Y ( J) »Y ( J2) ) ) 

107  B(3.I)=0.737564«A(15.I)»B(3.I) 

108  F(J*7)=32.174«(B(3,I)-B(33,I))/A(26,I) 
F(J9*6)=B(5,I) 

35  F(J*6)=B(5.I) 
GO  TO  37 

C      TO  39—,  SHAFTS  OF  INDUCTION  MOTORS. 

C      TO  38—,  COMPUTE  THE  EM  TORQUES  OF  THE  INDUCTION  MOTORS. 

36  B(3,I)=A(4,I)«Y(J*3)»(Y(J)»B(20,I)*Y(J2)»B(24,I)»Y(J3)»B(22,I) )*A( 
14.I)»Y(J*4)«(Y(J)«B(19.I)*Y(J2)»B(23.I)*Y(J3)»B(21.I> ) 

38  B(3.I)=0.737564«A(7,I)»B(3.I) 

39  F(J*6)=32.174»(B(3,I)-B(12,I) )/A(9,I) 
F(J*5)=B(5,I) 

37  CONTINUE 
RETURN 
END 
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SUBROUTINE  TORIM  50  0000 

C      COMPUTE  THE  MECHANICAL  TORQUES  OF  THE  INDUCTION  MOTORS  FROM  GIVEN   50  0001 
C      SPEED/TORQUE  TABLES  BY  LINEAR  INTERPOLATION.  50  0002 

C      THE  END  VALUES  OF  TORQUE  ARE  USED  WHEN  THE  SPEED  FALLS  OUTSIDE  THE  50  0003 
C      RANGE  OF  A  TABLE.  AND  A  COMMENT  IS  WRITTEN  IN  TAPE  6.  50  0004 

COMMON  A.B*B0*C*CD*D*EG*EP*F.G.GB.Q«VV.W*X.XL«XM*Y*Z.L*LG1»LG2*LG3  50  0005 
1»LP1*LP2»LP3*TITLE*HEAD  50  0006 

DIMENSION  A (80 .35) *B(99*35) *BO (8) *C (50 > *CD ( 3*4) »D ( 120 ) .EG (50 > »EP (550  0007 
10).F<316>.G(21»35>.GB(3*4*9).Q<316>*VV(21»9)*W(6*6«9),XL<6.10*35>.50  0008 
2XM(6,10.9>.Y(316) . Z (6* 6*35) *L < 1 34) *LG1 (50 ) «LG2 (50 ) *LG3(50) ♦ LP  1 (50)50  0009 
3*LP2(50) *LP3(50) *TITLE(39) ,HEAD(39)  50  0010 

900  FORMAT (//35H  •••SPEED  OF  INDUCTION  MOTOR  NUMBER* I3*34H  IS  LARGER  T  50  0011 
1HAN  VALUES  IN  TABLE'»»/7H  SPEED=.E12.5/15H  TORQUE  SET  TO  .E12.5//)  50  0012 

901  FORMAT <//35H  •••SPEED  OF  INDUCTION  MOTOR  NUMBER. I3*35H  IS  SMALLER  50  0013 
1THAN  VALUES  IN  TABLE««/7H  SPEED=.E12.5/15H  TORQUE  SET  TO  .E12.5//  50  0014 
2)  50  0015 

N1»L(1)*L(2)*1  50  0016 

N2=N1*L(3)-1  50  0017 

DO  100  I=N1»N2  50  0018 

J  =  L(I*50)»6  50  0019 

IF  (Y(J) .LT.A(ll.I) )  GO  TO  90                                       50  0020 

NN=  A(IO.I)  -1.0  50  0021 

DO  10  K=1.NN  50  0022 

KK  =  11»2»K  50  0023 

IF  (Y(J) .LT.A(KK«I) )  GO  TO  20                                        50  0024 

10  CONTINUE  50  0025 

B(12*I)  =  A(KK*1,I>  50  0026 

N=I*1-N1  50  0027 

WRITE  (6*900)  N.Y(J) *B(12»I)  50  0028 

GO  TO  100  50  0029 

20  KK  =  K«2*9  50  0030 
B(12«I)  =  A(KK*l»I)-( ( (A(KK*1*I)-A(KK*3*I) ) / ( A < KK. I > -A ( KK*2.  I ) ) )•   50  0031 

1  (A(KK.I)-Y(J) ) )  50  0032 

GO  TO  100  50  0033 

90  BU2.I)  =  A(12,I)  50  0034 

N=I*1-N1  50  0035 

WRITE  <6«901)N,Y(J)  ,  BU2.I)                                          50  0036 

100  CONTINUE  50  0037 

RETURN  50  0038 

END  50  0039 
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